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Staubschutzhauben 
aus Hartplastik 





Seit kurzer Zeit hat die Firma Media Plast 
Druckertische und Staubschutzhauben 


| Die Fa. EPSON bietet einen neuen einheit- 
aus Hartplastik mit in Ihr Lieferprogramm 


lichen Grundmodell-Drucker an, der 
durch Einstecken eines Moduls zum spe- 
ziellen Drucker ausgerüstet werden kann. 
Mehr über diesen neuen Standard finden 
Sie auf Seite 4 dieser Ausgabe. 








aufgenommen. Die Staubschutzhauben 
werden nicht nur für die Tastaturen unter- 
schiedlichster Systeme sondern auch für 
andere Hardware-Bereiche (Floppystatio- 
nen u.ä.) angeboten. Die Druckertische 
: sind aufgrund Ihrer Bauweise äußerst 
platzsparend. 

Mehr darüber können Sie auf der Seite 4 
lesen. 


























Jetzt auch alle VG-20 
Programm-Listings 
mit Checksummen! 


= Ab dieser Ausgabe werden auch alle VC- 

20 Anwender in den Vorteil der Check- 

summen kommen. Damit wird auch bei 

mm in der Eingabe dieser Listings anhand der 

nes ylarett- Checksumme genau angezeigt, ob ein 

ons an ae Eingabefehler in den einzelnen Zeilen vor- 
N liegt oder nicht. 
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Ein Redaktionsteam von „Compute mit“ warfürSie aufder diesjährigen Mikrocomputermesse 
'86, die in der Zeitvom 29. Januar bis 2. Februar aufderm Messegelände Frankfurt stattfand. Wir 
haben uns umgesehen und berichten über die wesentlichsten und interessantesten Bereiche 
dieser Ausstellung. 


Großes Programm PTE an 


Son derveranstaltungen 2 





Die Initiatoren der Mikrocomputermesse 
’86 haben den Schwerpunkt dieser inter- 
nationalen Fachmesse auf fünf Anwen- 
dergruppen gelegt: Handel, Handwerk, In- 
dustrie, Gesundheits- und Bildungswe- 
sen. 


Im Rahmen von täglichen Sonderveran- 
staltungen wurden Interessierte aus die- 
sen fünf Bereichen in Fachseminaren und 
Referaten auf den Umgang mit Mikrocom- 
putern vorbereitet und informiert. 


Man wollte auf diese Weise versuchen 
noch mehr Interessierte für das große Ge- 
biet der Datenverarbeitung mit Mikrocom- 
putern zu gewinnen. Der PC sollte nach 
Meinung der Fachleute in allen Büros sei- 
nen Platz haben, da mit dem Stand der 
heutigen Technik in fast allen Bereichen 
des Arbeitsprozesses wesentliche Erleich- 
terungen und Vereinfachungen erzielt 
werden. Der Veranstaltungsplan dieser 
Messe sah daher seine Hauptaufgabe in 
der Aufklärung über den sinnvollen Ein- 
satz eines Mikrocomputers. 


Keine wesentlichen - 


‚Neuerscheinungen 






Wer diese Messe in der Erwartung be- 
suchte, wesentliche Neuerscheinungen 
im Bereich der Homecomputerszene zu 
j Tinden, wurde arg enttäuscht. Zwar gabes 
einige Neuvorstellungen im Hard- und 
Softwarebereich, aber der absolute „Mes- 
sehit” fehlte gänzlich. Eine Umfrage an 
den einzelnen Messeständen ergab die 
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wohl interessantesten Neuigkeiten bei der 
Fa. Vortex. Hier wurde ein Farbfernseh- 
Modulator vorgestellt, der allen Schnei- 
derbesitzern erlaubt, Ihren Computer an 
den hauseigenen Farbfernseher anzu- 
schließen und somit auf den Grünmonitor 
zu verzichten. Die bisher notwendige ex- 
terne Stromversorgung des Monitors wur- 
de bei diesem Modulator gleich integriert. 
In der nächsten Zeit plant man bei Vortex 
alle Schneider-Computer mit einem MS- 
DOS Modul zu versorgen. Dadurch erhal- 
ten auch die Schneider-Besitzer endlich 
den Zugang zur IBM- {und kompatiblen) 
Software. 


Als weitere Neuerscheinung - hier wer- 
den alle Schneider-Floppy-Besitzer ange- 
sprochen - wird Ende Februar dieF1-X 
(5.25” Diskettenstation) und de M1-X 
(3.5” Diskettenstation) angeboten. Durch 
Austausch eines EPROM’s im Original- 
Schneider-Controller hat man die Mög- 
lichkeit, diese Diskettenstationen auf die 
bisher erhältlichen FI1-SundF 1 -DSta- 
tionen umzurüsten, Bei einem Verkaufs- 
preis von ca. 700,--DM, dürfte diese eine 
sehr interessante Al- 
ternative zu den Ori- =: os « 
ginal Diskettensta- 5° 
tionen darstellen. 
Nähere Einzelheiten 
zu diesem Thema 
werden wir dem- 
nächst  veröffentli- 
chen. 

Die größte Ausstel- 
Iungsfläche für Ho- 
mecomputer stand 
in einer Sonderhalle 
zur Verfügung. Hier 
halten alle Besucher 
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die Gelegenheit Hard- und Software zu te- 
sen, wovon auch rege Gebrauch gemacht 
wurde. 


Gleichzeitig war in dieser Halle der WDR- 
Computerclub und ein Informationsstand 
des Hessischen Rundfunks zum Thema 


‘Computer aufgebaut. Im Rahmen einer 


Sonderschau hatten einige Aussteller das 
Thema „Computer und Musik“ darge- 
stellt. Hier wurden die Möglichkeiten ge- 
zeigt, wie man mit dem Computer Heimor- 
geln einsetzen kann, oder wie man mitHil- 
fe des Joysticks zum Drummer wird. Die- 
se Demonstrationen fanden bei dem Pu- 
blikum starkes Interesse. 





"Gelungene Veranstaltung 


Durch die Vielzahl der angesprochenen 
Fachbereiche und durch das große Ange- 
bot an Ausstellern kann man von einer ge- 
lungenen und vielversprechenden Veran- 
staltung sprechen. Vielleicht sollten aber 
noch mehr Hard- und Softwarehersteller 
die Gelegenheit nutzen, Ihre Produkte vor- 
zustelien. Die Gelegenheit dazu bietet sich 
bei der Microcomputer '87. 
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Staubschutzhauben aus Hartplastik und 
Druckertische gehören seit einiger Zeit 
zum Angebot der Firma Media Plast aus 


| Dortmund. 


Mit der Problematik verstaubter Tastatu- 
ren und Peripheriegeräte konfrontiert, ent- 
wickelte die Firma Media Piast eine ganze 
Serie von Abdeckhauben für die unter- 
schiedlichsten Gomputertypen und Peri- 
pheriegeräte. 

Die Abdeckhauben sind aus Hartplastik 
und im Moment lieferbar für alle drei 
Schneider GPC-Typen sowie die Schnei- 
der 3 Zoll-Laufwerke. Auch für den Gom- 
modore-Renner C 64 ist die Plastikab- 
deckhaube erhältlich. Besonders die An- 
wender der Commodore-Floppy 1541 
werden sich freuen, daß es auch für die- 
ses empfindliche Peripheriegerät entspre- 
chende Abdeckhauben gibt. Weitere gän- 
gige Computertypen werden ständig in 
das Programm aufgenommen. 

Durch die neuen paßgenauen Abdeck- 
hauben aus Hartplastik werden Funk- 
tionsstörungen durch Verschmutzung na- 
hezu ausgeschlossen. Der paßgenaue Sitz 
der Abdeckhauben wird durch modernste 
technische Herstellverfahren mit äußerst 
präzisen Werkzeugen erreicht. 

Aus demselben Material, aus dem die Ab- 
deckhauben hergestellt werden, werden 
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auch Druckertische für Drucker aller Ty- 
pen von Media Plast hergestellt und ange- 
boten. 


Sehr funktionelle und transparente Auf- 
bauten-lassen sich mit diesem neuen Kon- 
zept der Druckertische ohne Probleme 
und ohne großen Platzbedarf erzielen. 

Die Druckertische sind so konzeptioniert, 
daß das nötige Druckerpapier unter dem 
Drucker ausreichend Platz findet. Mit die- 
sem neuen Druckertisch-Konzept werden 
Papierstaus weitestgehend ausgeschlos- 
sen, und trotz alledem bleibt die gesamte 
Anlage leicht überschaubar und durch- 
sichtig. Die Druckertische werden in den 
verschiedensten Ausführungen mit unter- 
schiedlichen Höhen und Breiten geliefert. 


Nähere Informationen: 
Media Plast 

Lübecker Str. 32 ° 
4600 Dortmund 





LX90 nach allen Seiten kompatibel 


Das neueste Drucker- 
modell LX-90 paßt 
sich dank einschieb- 
barer. Module den 
Heimcomputer mit 
ihren  unterschiedii- 


mer exakt an. Er bie- 
tet professionelle 
Qualität zum niedri- 
gen Preis. 





Compute mi 






chen Betriebssyste- - 


EPSON geht neue Wege im Bereich der 
Standardisierung von Druckern für Perso- 
nal- und Homecomputer, Nachdem be- 
reits der neue - EPSON Standard Code for 
Printers (ESC/P) - im Personalcomputer- 
bereich Wirklichkeit geworden ist, ver- 
sucht man nun auch im Homecomputer- 
bereich das „Wirrwarr“ an Schnittstellen 
und unterschiedlicher Drucker-Hardware 
zu entwirren. Auf die Dauer ist ein solches 
Anpassungsdurcheinander weder den 
Herstellern von Software noch dem Käufer 
zuzumuften. 


Der Expanded Standard Code for Printers 
sieht eine einheitliche Belegung der Zei- 
chensätze vor. Er umfaßt den Zeichensatz 
nach dem PG-Industriestandard, den AS- 
ClI-Zeichensatz und nationale Zeichen- 
sätze mit Umlauten und Sonderzeichen. 
Im Homecomputerbereich sind Atari, 
Commodore, Schneider, Apple, MSX usw. 
führende Hersteller, die aber leider nicht 
dem Industriestandard entsprechen. Je- 
der Hersteller bietet seine eigenen Druk- 
ker an, die in der Regel dem Low-cost Ni- 
veau der Computer angepaßt sind. Oft 
müssen bei Qualität und Leistung Abstri- 
che gemacht werden, weil der Drucker die 
Möglichkeiten des Computers nicht aus- 
Autzt, 


Deshalb stellt EPSON mit dem LX-90 
Drucker ein neues Konzept vor. Hierbei 
wird nicht für jeden Computer ein speziel- 
fer Drucker entwickelt, sondern man geht 
von einem Grundmodell aus, das keine 
Betriebssoftware enthält. Diese wird in 
neu entwickelte Steckmodule ausgelagert 
und ist genau auf den betreffenden Com- 
puter abgestimmt. Im Steckmodul befin- 
det sich dann auch das komplette inter- 
face. Durch das Einstecken der unter- ° 
schiedlichen Module wird mit einem 
Handgriff aus dem einheitlichen Grund- 
modell ein spezieller Drucker für Commo- 
dore, Atari, Apple, MSX oder Schneider. 
Das ist eine verbraucherfreundliche Lö- 
sung, solange sich bei Heimcomputern 
noch ein einheitlicher Standard herausge- 
bildet hat. 

Damit bleibt der LX-90 ein echtes Low- 
cost Angebot und der Käufer erhält einen 
Drucker, der für professionelie Beanspru- 


386 


repori_ 


° chung ausgelegt ist und mühelos harten ! ker auch beim Umstieg auf einen anderen | dells nur mit Hilfe der Module jeden Heim- 
Dauereinsatz verkraftet. Mechanik und ! Computer mit entsprechenden professio- | computerbesitzer mit einem qualitativ 
Elektronik sind für zusätzliche Leistungen | nellen Eigenschaften aufwarten kann. Für | hochwertigen Drucker versorgen Kann, 

. wie Schönschrift und automatischen Ein- | den Händler bietet der LX-90 die Annehm- | ohne daß er ein ganzes Lager voller ver- 

zelblatteinzug ausgelegt, so daß der Druk- | lichkeit, daß er anhand eines Grundmo- | schiedener Drucker führen muß. 

















Verlorengegangene oder verfälschte Daten, Übertragungs- und 
- Druckfehler sowie Papierstau haben oft eine einfache, aber fol- 
i: genschwere Ursache: Mehr ats 50 Prozent derartiger Störungen 
an EDV-Anlagen sind auf elektrostatische Aufladungen zurück- 
zuführen. Aber nicht nur Geräte und Daten sind gefährdet. Den 
i Anwendern drohen meist unangenehme Schläge. Mit den Mis- 
co-Anti-Statik-Matten läßt sich hier schnell und wirksam Abhilfe 
schaffen. Die Tisch- und Tastatur-Matten mit integrierter Er- 
dungsverbindung halten elektrostatische Aufladungen unter 
Kontrolle und leiten sie gefahrlos ab. Darüber hinaus wirken sie 
lärmmindernd und absorbieren Tonfrequenzen. Beide Ausfüh- 
rungen haben eine hochwertige Schaumpolsterung mit ab- 
waschbarer Plastikoberfläche. 
Misco liefert die Tischmatte für Monitor und Tastatur (61x 66 
cm) zum Preis von DM 199,-- (netto). Die reine Tastatur-Matte 
(48x 30,5 cm) gibt es für netto DM 89,--. Weitere Anti-Statik- 
Produkte bietet der kostenlos erhältliche Misco-Katalog bei Misco EDV-Zubehör GmbH, 6082 Mörfelden-Walldorf 


Für alle Arbeitsplatzdrucker ist die PBOX 
der ideale Untersatz. Das Endiospapier 
liegt, wo es keinen zusätzlichen Platz be- 
nötigt, unter dem Drucker. 

Zur Ausstattung gehören ein Kabelhalter, 
eine Meßscala, die den Papierinhalt an- 
zeigt, die Aufnanmemenge beträgt 500 
Blatt Endlospapier und innen-angebrachte 
Schutzsireifen, die eine statische Aufia- 
dung verhindern. 

Die PBOX gibt es in vier Größen und paßt 
unter über 250 Arbeitsplatzdrucker der 
verschiedenen Fabrikate. 

: Das Material ist glasklares Plexiglas. 
Durch das klassische Design, die hervor- 
ragende Qualität der Verarbeitung erfüllt 
; sie höchste Ansprüche und paßt an jeden 
EDV-Arbeitsplatz. 

; Der PBOX ist, wie alle DAZU-Produkte, 
ı über den Fachhandel erhältlich. Der Preis 
beginnt ab 142,00 DM (o. MWSt). 
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Laufrichtung des 


Sie befinden sich in einem sehr verzweig- 
ten und verwinkelten Straßenneiz. Inner- 
halb dieser Straßen sind Punkte verteilt, 
die Minor-Jumper vertilgen muß. Doch 
vor den Erfolg haben die Götter bekannt- 
lich den Schweiß gesetzt und nicht nur 








Eine Herausforderung für alle „Joystick-Künstler“ des 


C-16/116-Computers! In Sekundenbruchteilen müssen Sie hier die 





00" 


EN | #4 bestimmen. 
linor-Jumpers 

kommt er sofort von der Straße ab, was ja 

gleichbedeutend mit dem Verlust seines 
Lebens ist; an einigen Stellen treiben blin- 
kende Quadrate ihr Unwesen, sobald Mi- 
nor-Jumper mit diesen kollidiert, ist seine 
Lebensuhr schon wieder abgelaufen. A 


























































pro pos Lebensuhr - auch bei diesem 
Spiel gilt es, das vorgegebene Zeitlimit 
einzuhalten. 


das: Unser Held ist zahtreichen Gefahren 
ausgeliefert. Bei falscher Steuerung 





1 REM --- 

2 REM — MINOR-UUMPER 

3 REM ----- 722mm 

A.REM -- CREATED BY CARSTEN REINKE 

S REM ——- OTTO-DIX-STR-53 

& REM —- 1000 BERLIN ?1 

7 REM —- TEL: 0307/3941336 

8 REM -—— ALL RIGHTS (8 BY EBUES-SOFT 

9 REM --- 7m 

10 FOKES2 ,55: POKES6 ,55: VOL2 

20 EOLORI,8,75C0L0RG,1:COLOR4,1 

0 SCNELR:PRINT:FRINT:FRINT: TA=7 i : 

AO FRINTTABLTAIGE" mn mn an Das ist zum „Wahnsinnig werden“ mit diesem Min- 
SQ FRINTTABITAI:"| ana u u er-Jumper. 

80 PRINTTAB (TAI "Im hl De u u ae Bu Bu a u - - 

70 PRINTTABETAY FG" = m NN Ye | Eingabelips: Teil 1 laden und starten - 

80 PRINTTAREITBEIE"LI WERRER FEED E EEE - Teil 2 lädt sich selbständig nach, anschlie- 
30 PRINTTABITAIS" IB EEE Er EN Rend wieder starten 

100 PRINT:PRINT»PRINT:COLOR1,5,73TA=5 - Den 1. Teil nach dem Eingehen bitte unter 
110 PRINTTABETAIG HH 4 4 dt tt ++) Miner-Jumper“ saven 

120 FRINTTAB(TAIF" II erh iı ı* ” , “ . 

1309 PRINTTAB{TAIE® IL EEE HH - Den 2. Teil nach dem Eingeben bitte unter 
4140 PRINTTABtTAFF" a ee a Ba Be Bee | i i „Spiel“ saven. 

150 PRINTTABCTAY ZT" I nt ++ ++ 4 + + 

150 CHAR1,06,22,"m9 ALLE RECHTE BEI CR(1985) W':PRINT 

170 a nAe03270849: READBS: FE=FE+DEC (B$) : FOKEA ,DEC (B#) = NEXT 

180 IFFE< SZ1S1THENPRINT"FEHLERZSO": STOP 

i90 5SY5832 

200 SYS032 327: RERDA: X=X+A: POKELASSEHT „Ar SOUNDL „50041 „2: SOUNDZ,299+ 1,2: NEXT 
210 IFX< > 191 4BTHENFRINT"DATA-FEHLER270-":STOF 

220 I 2 2ST0200+ SOLUNDI „300+1 ,2SOUNDZ,299+1 ‚2: NEXT: SENTL 


230 PRINT "ERNEWEIE" = PRINT"LORDE" 5: POKE1S19, 13: POKE1S20,13: FOKE239,2 


240 REM ——-——- ZEICHEN-ROM KOPTEREN---—-- 

250 N AR2 „00, BD,00,D0,90,00,58,BD,00,D1,9D,00,37,CA,DO,Ft,E0 

260 REM -——-DATAS FUER NEUE ZEICHEN 

270 DATA255,129,129,153,153,129,127,255 340 DATA183,1983,183,183,183,193,185, 183 
280 DATA60,66,129,165,129,155,66,60 250 DATA237 „237 4237 „237 „237 ,237 ,237 2257 
>90 DATA255,129,129,129,129,129,129,258 =60 DATA183,183,185,176,191,191,128,258 


=00 DATA255,128,191,191,176,185,185, 185 570 DATA25S ‚253, 255,0,255,259,0,295 
10 DATA255 ,0,255 ,255,0,259,255,255 <a0 DATA237 ,237,237,13,253,253,1,259 


370 
A600 


DATAO,0,0,0,0,0,0,9 
DATA25S,14253,253,13,237,237,237 


DATA255 ,170,255,170,255,170,259, 17° 
DATA255,153,153,255,255,153,153,25° 
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4 REM ——----- 4. Hm 
2 REM -- MINOR-JUMPER _— 
3 REM ------- 4. Home 
4 REM -- DESIGNED BY CARSTEN REINKE —- 
5 REM --COFYRIGHT (1985) BY EQUES-SOFT-- 
& REM ----- 4. men 


10 TRAP 1270 

20 POKES2,55: FOKES6,55 

30 FORA=1T05:NASA)="-——--2. Ru :HP{A)=111:KEYA,CHRE (1324) :NEXT 
40 DEFFNAI{YP)=3072+40x*YP: DEFFNA2 (YP) =2048+40xYP 

50 FUDEF"O":VOL2: B=3:1L$="01: 10” 

&0 FOKE65298 , 192: POKESAS299 „56 

790 GOSUB280: GOSUBS40: LE-1: VE=10 

80 XP=21:VP=22: XR=D: YR=03 PU=0: T1$="000000" ; HL=O 

90 COLOR1 ,8:CHAR1,37,0,"@"+STR$ (LE) _ 

100 POKEFNAL{YP) +XP „29: POKEFNAZ{YP) +XP „77 

110 IFINT(RND(1)*8)< >2THEN13O 

120 PO=INT {RND (1) #879) +3152: AL=PEEK PO) : IFAL=?70RAL=27THENPOKEPO, 167: POKEPO-1024 
232 


130 J=J0Y 1) IFI>OTHENR=J:ELSE19O 1869 XR=01: YR=00: GOTG170 
140 ONRGODTO150,150,1680,170,170,170,180,150 170 XR=005 YR=01:G60T0190 


150 XR=00: YR=-1:5070190 180 XR=-15 YR=00: 6070190 


190 XP=XP+XR: YVP=YP+YR: P=PEEK {FNALL(YP)+XP) 

200 POKEFNA1(YP)+XP „28: FOKEFNA2(YPI+XP, 123 

210 IFP=27THENSOUND2,700 ‚2: SOSUB250: ELSESOUND2,800,2 
220 IFP=4&0RF=167THEN?780: ELSEFORA=LTOVE: NEXT 

230 IFF=40THENPU=PU+4: GOSUB250 

240 GOSUB240:60T0100 

250 PU=FU+1: CHAR1,23,0, "WW" :PRINTUSING"###" ; PU: IFPU>19FTHENTBO: ELSERETURN 

260 T$="@"+MIDE(TIE,3,2)4" 3 "+RIGHTS(TIE,2) 

270 CHAR1,8,0,1$: IFT$=L#THENZL=1:GOTO780: ELSERETURN 

280 COLORO,1:COLOR1,3,4: COLOR4 ,1 

290 FRINT'IIEE ZEIT 3:00:00 PUNKTE :000 LEVEL :i W;:C0LOR1,3,4 

300 PRINT"*"3 2 FORA=1T038: PRINTCHR$ (95) 5 :NEXT:PRINT" I" 

310 FORA=1T022:PRINTCHR$ (34) 5 

520 EOLOR1,2:PRINT”. .uuerensunuenssnennnsnnnnnesnnnnannnn "FSCOLORI „3,4: PRINT"R"Z 
=NEXT 

330 PRINTYSKARZRZLLAITLLLLTÄLTSSTLTRLLLLLLLLLTLETN 7 POKEAOT1 „38: RESTORE17230 

340 COLOR1 ,8:CHAR1,13,4,"d MINOR-JUMPER ":A=7 
350 GOSUB430:CHAR1,12,21,"d Fi = ANLEITUNG m" 
360 GOSUBA43O:CHAR1,12,22,"J F2 SPIEL mw 
370 GÜSUB430: CHAR1,12,23,"d F3 = HIGHSCORE 
380 GETA$: IFA$="E' THENA=7 : RESTORE1230: GOTDA450 
390 IFAF="®"THENRETURN 

400 IFAS="If" TRENHI=1:GOTOBF0 

410 READF ,G: IFF=-1 THENRESTORE1730:G0T0410 

320 SDUNDI ,F.G:SDUND?,F+?,6:G0T0350 

4350 IFA>4THENA=A-1: COLOR1 ,8,A:ELSEA=7 

440 COLOR1 ,B,A:RETURN 

450 COLORI,8:CHAR1,13,4,"9 MINDR-JUMPER m" 
460 RESTGRE1140: FORB=4T020: READA$: SOSUB430: CHAR1 ,2,B,A$3NEXT 
ATO CHAR SAD I nn nenneneonanunnn nn" 

480 GOSUB4S02CHAR1,12,22,"d F2 = SPIEL m 
470 GOSUB430: CHAR1,17,73," F3 = HIGHSCORE m" 
500 BETA$: IFA$="E" THENRETURN 

510. IFAS="W" THENHI=1:GOTOB7O 

520 READF,6: IFF=-1THENRESTORE 1730: 6010520 
530 SOUNDI,F ,G:SDUNDZ ,F+2,6:5070480 












Hinweis an alle C-16/ 
T16 Kasseiten-User 


Wenn Sie Programm-Kas- 
setten der Zeitschrift „Com- 
pute mit“ benutzen, beach- 
ten Sie bitte, daß die auf 
Kassette abgespei- 
cherten Programme 
aufder2.Seite (B-Seite) ab- 
gespeichert wurden. Auf 
der 1. Seite sind die Pro- 
gramme für die Systeme 
C-64 und VC-20. 


Rh 
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S40 
T 
550 
560 
570 
580 

590 


300 
310 
920 
930 
340 





programme 





COLORI „2,5: FORA=2TO2EECHARL 1 4Ay"auannenunnenennn nenn een nenn ene nun TENER 


COLOR1 „14,4: CHARi „2,3, "EELLLLELLLLLELCELLEELELEELLLELEELREL" 
CHAR142 54, "Lennnsannlanunelennnnn En Erun nun" 
CHAR1 22454 "DeanuenunloonnelunonunbolnEnnunnue nt” 
CHAR1 42464" Lenna ll Ellen non ELLELEL Eu [ oo ou" 
CHAR14247 4" [ann -LernlenennnnnEnnan Eu ELLLELELEL" 
CHAR1,248, "LILLLE.„„LERCELLE [La ana nn nun nenn 


Schon gehört? 
CHAR1 2,9, "eanlerannnnelbanelonunnn „BEELLELLELEE" 2 


CHAR1 52410 5"anulnannnnnulannlenenenabonnununtenet" Bei der „Compute mit“- 
CHAR 5 Zg11 "nun lanaanonnEennbrunnunnEnmunnnnbene ‚Hhalktinn wir ai 
CHAR1,2,12,".[ILLIL.„„TIELLELo u... „ EELLLEELEL- Redaktion ‚wird derzeit 
CHAR1,2,184".[--„„EOLEL...-ELELELEEE nam nn en eine C-16/116. Sonder- 
CHARI 52 1A gs" alennnleonErunrlenelronlaonnnnenbren : ausgabe mit vielen Spiel- 
CHAR1 42415 "a[nnnnleunlouneleunlennlrnennennben et pe u: 
CHARL 24164" .lannnlanolanuelenelenslrnansan ebene" und. . Anwendungspro- . 
CHAR1,2,17,".[LCLEL..„EILEEL..„[..„EELELLELIT. u" grammen für dieses 
CHAR1 52, 18y"on-Enennnnunnlanenabnonnebunelannnen P - . Fr 
CHARL-2.1@ "nn nlannenunnubonnenbaunnalannEarnennt" System vorbereitet. 
CHAR1,24204%. 0. LELLILILL[E nenn [on an TEE En nun 
CHARI.2,Z1s"annunnalenonunnnnunleunnenn bannen nn 
CHAR1 2,224 "nun nn ELELELLLRLEELELLTE[L ran en ann 
FORA=1T010 

TRND (132879) 43152: IFPEEK (B) =27THENPOKEB ‚40: POKEB-1024 ,75: NEXT= ELSEGOTU? 





RETURN 


_ VOL22FORE=-300T104998TEP+10:SQLIND1 ,500-B, 1: NEXT: FORB=499T0-300STEP-30 
SOUNDI „500-B,1:NEXT 


FORA=2T023:CHARL Asse nnnnennnnnnen nn na nennen nennen nn U ENEXT 
1FZL=1ANDPU< 2Z000RF=450RF=1670RLE=4THENIFO 

LE-LE+1: FORA=2T023: CHAR1 , INT (RND(1)*16) +8, A, "LEVEL": PRINTLE: NEXT 
EORA=1T02: FORB=-300710499STEP+10: SOUNDI „500-B, 13 NEXTB: FORB=499T0-500STEF-39 
SGUND1 ,500-B,1:NEXTB,A 

VE=YE-2 

RESTORE880: FORA=2TOLE: READL#: NEXT 


"(G05UB540:60T080 


DATA" O1:00” ,"00:50", "400240" | 
FORA=STOZSTEHARI Lyss Meananenen nenn n nennen nennen nun n nn "ENEXT 


CHAR1,13,4, "08 MINGR-JUMPER ®" 950 IFHI=OTHENLOLO 

CHARI „7,7, "IFLATZ-—-— NAME--——- PUNKTE" | #60 CHAR 512, 21a" nam nunnen rn nn nenn" 
FORA=1TOS: CHAR1,8, 7+A82, "BE" +5TRE CA) 970 CHARI 12,22 nennen nn " 
CHAR1 ,13,7+A*2,"W"+NAFIA) 980 GOSUB430: CHAR1,12,23, "4 Fi = ANLEITUNG W 
CHAR1 „27, 7+Ax2, "M"+STRSCHP AI SNEKT 990 GETA$: IFAF< "WW" THENFBO:ELSEHI=O 


1009 FORA-PTOZZECHART GA le ann nenn mann nun anannennn en nn ENEXTEAS73B0 
T0450 . 

1010 HN=PU+ (LE-1) #209: 2I=0: JA=0 

1020 FORA=1TOS: IFHN>HP (A) THENZ I=A: A=5: JA=1 

1050 NEXT 

1040 IFJA=OTHENI090:ELSEJA=O 

1050 FORA=ATOZISTEP-1: NA$ (At) =NAS (A) EHP(AHLIS=HPIA) NEXT 

1060 CHAR1,13,19, "7 [D" : FOKE239,0 

1070 PRINT: INPUT"RINIHR NAME ?"; NEF 

1080 NA#{ZII=LEFTF(NEF,1ZI :HP{ZTI=HN 

1090 FORA=1T05: CHAR1,8,7+A*2,"W"+STR# (A) 

1100 CHAR1,13,7+Ar2,"W"+NAF LA) 

1110 CHAR1,27,7+A*2, "W" +STRECHP CA) IS NEXT - 

4120 GOSUB430:CHAR1,12,25,"W Fi = INTRO m" 

1130 BETAF: IFAS<>H" EB" TREN1120:ELSE7O 

1140 DATA"BEI DIESEM SPIEL MUESSEN SIE TWILLI","S0 STEURN,DASS ER=“ 


PT 


Gompute miß 


___programme 


1150 DATA". AUF DER STRASSE BLEIBT,","2. MINDESTENS 200 PUNKTE FRISST","....UND 
1160 
1170 
RR" 

1180 
1190 
1200 
1210 
1220 
1230 
96,8 
1240 
1250 
1260 
1270 


DATA"3. NICHT AUF ORANGE-BLINKENDE FELDER" „"... . KOMMT." 
DATA"AUSSERDEM SPIELEN SIE GEGEN DIE ZEIT.","IST EIN LEVEL DURCH ERFOLG ODE 


DATA"MISSERFOLS BEENDET,SG SPRINGT ","DAS PROGRAMM IN DAS NAECHSTE LEVEL," 
DATA"BZW. IN DIE HIGHSCORE-LISTE." "aan nanna VIEL ERFOLS-——" ,"" 
DATA"STEUERUNG: JOYSTICK IN PORT 1" 

RESTURE1230: VOL3 

READA,B: IFA=-1THEN17?10: ELSESCGUNDI „A,B: SOUND2,A-1 „B: SOUND1 „1070 ,4:G0T01?220 
DATAG85,7,685,10,643,7,576,10,1020,10,759,20,704,10,685,20,1020,10,643,12,5 


DATA643,12,596,8,685,15,643,17,596,15,1020,10,739,20,704,10,685,20,1020,10 
DATASA3,12,596,9,643,12,596,30,6985,7,685,10,643,7,576,10,1020,10,810,20 
DATA770,10,739,20,1070,10,685,12,643,8,685,12,642,8,596 ,30,1020,20,-1,—1 
POKE65298, 196: FOKE65299 ‚208: SCNELR:= COLOR1 ,1:COLORO „2:C0LOR4,15,6:END 





Dieser Befehl generiert automatisch ein 
Fenster, das entweder durch zweimaliges 
HOME-Drücken oder durch ein neues 
Fenster gelöscht wird. 

Der Basic-Loader muß vor dem Starten 
abgespeichert werden, da er sich selbst 


Bytes lang und fällt trotz des geringen 
Speichers kaum ins Gewicht. Als Befehl 
wird Pi mit der Tokennummer 255 be- 
nutzt. Das Programm nutzt die dauernde 
Kontrolle über die Speicherstellen 2021 - 
2024 (07E5 - 07E8), wo die Spalten- und 
Zeilenkoordinaten des C-16/116 stehen. 


2023 07E5 unterer Rand(Zeile)ESC-B 


2022 07E6 vberer Randf[Zeile)ESCT 
2023 07E7 linker RandtSpaltelESC-T 


2024 0TE& rechter Rand(Spalte)ES6-B 


löscht. Das Maschinenprogramm ist 96 


10 REM 


FEFEFREKHEEFHH RN FH EN FH HR FEN IH HH FH FH I 770 REM DATAS EINFOKEN 
20 REM # * 280 FORI=16?788T016I383 
30 REM * FENSTERBEFEHL FUER C-16/C-11& * 290 READAE 
40 REM * * 300 A=DEC {AF) 
50 REM EEREENEIEEIETETRGE RR 310 5=5+A 
60 REM * * 376 POKEI,A 
70 REM * COPYRIGHT {0} VON : * 330 NEXT 
80 REM *  EGGERT ZSCHAU * 340 IFS<>11990THENPRINT"DATAFEHLER"=END 
90 REM & * 350 REM INITIALIEREN 
i00 REM ®  EOYSENKUPPEL 15 * z60 SYS1A7B8 
110 REM « * 370 REM BASIC PROGRAMM LOESCHEN 
120 REM # 27540 KAFPELN * 380 NEW 
130 REM * * 390 REM MASCHINENPROGRAMM 
146 REM * . TEL.:046842781815 * 400 DATAAF,AB,BB,08,903,47,3F,8D 
150 REM * * 410 DATAO9,03,50,20,73,04,C9,FF 
180 REM O RR EIER 420 DATAFO . 03 r 4c » n? y ößB y zo ‚Bi Pi SD 
170 REM SPEICHER ABGRENZEN 430 DATAE0,78,90,03,40,1C,79,BE 
180 POKES3,140: FÜKESS, 160: ELR 240 DATAE7,07,868,04,20,91,74,20 
170 REM BESCHREIBUNG - 450 DATAB4,9D,E0,197,BO ,EE ,BE,E& 
200 FRINT"L, I FENSTERBEFEHL” 460 DATAO7,86,C0D,20,91,974,20,84 
210 PRINT"RES LK ,ÜR,RR, URKEKES 476 DATAFD,EO,28,RO,DF ,E0,E7,07 
220 PRINT“ LR = LINKER RAND" 480 DATA9?C,DA,SE,E8,07,20,91,94 
2350 PRINT" OR = OBERER RAND" 470 DATAZ0,84,9D0,E0,17,B0,Bl,EC 
240 PRINT" "RR : RECHTER RAND" 500 DATAE6,07,90,AC ,BE,ES5,07,20 
250 PRINT UR = UNTERER RAND" 510 DATAC1,FE,20,79,04,40,09,5B 
250 PRINT"IRE NICHT IM DIREKTMODUS!" - 


| 























































dann sehen, ob in dem verbleibenden 
Speicherraum genug Platz für die Datazei- 
ien ist oder nicht. Steigt der Gomputer mit 
“einem ’OUT OF MEMORY’-Error aus, SO 
haben Sie Pech gehabt und müssen viel- 
leicht auf die Overlay-Technik (Nachladen 
von Programmteilen) zurückgreifen. 
Sonst haben sie wahrscheinlich Glück ge- 
habt, wahrscheinlich deshalb, weil unter 
Umständen die benötigten Variablen nicht 
mehr mit in den Speicher passen. Bei um- 
fangreicheren Programmen kann also im- 
mer nurein Testlauf zeigen, ob alles inden 
Speicher paßt. In den meisten Fällen hat 
man jedoch erfahrungsgemäß keine Pro- 
bleme, so schnell lassen sich 16 KByie 
auch nicht füllen. 


Auf den ersten Blick möchte man den im 
G-16/116 integrierten Maschinenmonitor 
als ungeheueren Luxus bezeichnen; dach 
betrachtet man die Fähigkeiten dieses 
Monitors genauer, muß man sehr stark 
einschränken: 

er ist sehr sparsam gehalten. 

So fehlt die doch eigentlich obligatorische 
Option, frei wählbare Speicherbereiche in 
Datazeilen umzuwandeln, sei es, daß man 
einen Basicloader für ein Maschinenpro- 
gramm benötigt oder nureine kurze Routi- 
ne in ein Basicprogramm einbinden 
möchte. 


Hier schafft das Programm Data-Maker Abhilfe. 


Es ist in der Lage, fast jeden Speicherbe- 
reich in Datazeilen umzuwandeln. „Fast“ 
deshalb, weil sich der Computer durch 
seine Speicherarchitektonik selbst Gren- 
zen setzt, Ein und derselbe Speicherbe- 
reich kann natürlich nur einmal belegt 
sein, und soscheidet.der Speicherbereich, 
der von Data-Maker selbst und dann von 
den Datazeilen belegt wird, für eine sinn- 
volle Anwendung in den meisten Fällen 
aus, da sich das Programm sonst selbst in 
Datas ablegt, was wohl wenig Sinn hat. 

Dies bringt jedoch ein kleines Problem mit 
sich, denn man kann nicht voraussagen, 
wie lang das Programm mit den Datazei- 
len im Endeffekt wird, daes ja dynamisch 
ist und sich selbst modifiziert, folglich 
auch immer länger wird. Es ist also nicht 
auf den.ersten Blick abzusehen, ob sich 
Maschinenprogramm (oder was immer in 
Datazeilen umgewandelt werden soll) und 
Datas überlagern werden, was unge- 
wünschte Folgen hätte. 


Zum Schützen des Speichers hat man 
zwei Möglichkeiten: . 


1. Man setzt den Basic-Start hoch. 
2. Man setzt das RAM-Ende herunter. 


Die erste Möglichkeit hat den Nachteil, 
daß man den Speicherschutz vor dem La- 
den des Programms vornehmen muß, vor 
jedem späteren Benutzen des Programms 
muß dies also erledigt werden, während 
man bei der zweiten Möglichkeit diesen 
Schutz in das Programm einbauen kann, 
der Anwender dies also nicht selbst zu er- 
ledigen braucht. 


Zum Schützen geht man folgendermaßen 
vor: 


- man zerlegt die neue Speichergrenze 
in die Low-/Highbyte-Darstellung: 
Highbyte = JNT{Speichergrenze/256) 
Lowbyte = Speicherg renze-256°High- 
byte 


- zum Hochsetzen des Basic-Starts gibt 
man folgende Zeile ein: 


Das Problem läßtssich folgendermaßen re- 
lativ leichtiösen: Sie sperren einen Teildes 
Basic-Speicherraums für Basic-Program- 
me und bringen dort ihre Maschinenrouti- 


ne, Datentabelle oder was sonst in die Da- POKE43,Lowbyfe: 
tazeilen gepackt werden soll, unter. Dann POKE44,Highhyfe: 
starten Sie den Data-Maker und können POKEStartadresse,d:NEW 
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= zum Herabsetzen des RAM-Ende gibt 
man folgende Zeile ein: 
POKES1,Lowbyte:POKES2,Highbyte: 
POKE55,Lowbyte:POKES6,Highbyie: 
CLR 



































Nun aber zum eigentlichen Programm. 
Lassen Sie beim Abtippen die gesamten 
REM-Zeilen weg; sie sind für den Pro- 
grammablauf völlig unrelevant und ma- 
chen das Programm nur länger. Speichern 
Sie das Programm nach dem Abtippen 
unbedingt ab, da es sich selbst löscht. 
Starten Sie das Programm mit RUN. 


Sie müssen nun Anfangs- und Endadres- 
se des Speicherbereichs eingeben, den 
Sie in Datazeilen ablegen wollen. Danach 
ist das Programm erst einmal eine Welle 
mit. dem Erzeugen der Datazeilen beschäf- 
tigt. Daß dabei dauernd etwas auf den 
Bildschirm geschrieben wird, braucht Sie 
nicht weiter zu beunruhigen, esist normal. 
Wenn der Computer sich mit einem UN- 
DEF’D STATEMENT ERROR (das ist ganz 
normal) und blinkendem Cursor zurück- 
meldet, steht der Basic-Loader im Spei- 
cher, die Datazeilen beginnen mit der Zei- 
lennummer 60000, die Programmzeiler 
mit dem Data-Maker sind entfernt und.de 
Basic-Loader enthält sogar einen Einlese 
teil mit zeilen(!)orientierter Prüfsumme 
_ ein Fehler beim eventuellen Abtippen de 
Datas wird also sehr genau \okalisiet 
(sollten Sie Ihr Programm veröffentliche 
lassen wollen, erleichtert das den Anwen 
dern, die es später abtippen, die Fehlerst 
che sehr). Zudem ist das Listing sel 
übersichtlich, da die Datawerie als zwe 
stellige Hex-Zahlen dargestellt werde 
(die Konvertierung in das Dezimalsyste: 
erledigt der Einleseteil beim Einlesen). 


Der Basic-Loader kann ganz normal n 


SAVE abgespeichert werden, da alle Poi 
ter richtig gesetzt sind. 
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werkstatt 


Ö REM HRS HHHHIHRSIHISISEIOHIIOISHIIEIHI ISIN SEHIIEE 
i REM * * 
2 REM * DATA-MAKER FUER DEN COMMODORE LCis/1ie * 
3 REM * * 
4 REM * ES WIRD EIN BASIC-LOADER MIT ZEILENORIENTIERTER * 
5 REM * PRUEFSUMME FUER EINEN FREI WAEHLBAREN SPEICHER- * 
6 REM * BEREICH ERZEUGT! * 
7 REM * * 
B REM * WRITTEN 1985 BY WALDEMAR RAAZ * 
DREM RENTEN FH ETF H HT HH HN HEINE EEE RER RE RER 
10 REM 2& Z=7Z+1 
31 REM * START- UND ENDADRESSE HOLEN * 27 PRINT"L"RIGHTS (STRF{Z) „SI "DATA"; 
12 REM 28 FORI=OTD7 
15 GRAFHICO,1 27 W=FEEK (5+17-40000) #8+T) 
14 INPUT"W STARTADR. ";5: INPUT" ENDADR.": | 30 F=P+W: PRINTRIGHTS CHEXS({W) „23 " "3 
Er IFS>=ETHEN1LZ 31 NEXT 
15 7=59999 32 FRINTF:PRINT"S="S":E="E"37="27": 
14 REM GOTO34" 
17 REM * WINDOW DEFINIEREN * 335 FOKE1319,19: POKE1320,13: 
18 REM FOKE1321 ,133 F0OKE239 ,37 END 
+7 GRAFHICO,15CDLORI,1 34 1FS+(2-59999) #BI=ETHEN2& 
20 CHAR1,10,24,"*** EINEN MOMENT a0", 1 5 REM 
zi FRINT"B*; 36 REM * EINLESE-BLOCK ERZEUBEN * 
22 FRINTCHRE (27) "T"ZCHAR„O,20,"": 37 REM 
FRINTTAB (39) CHR$ (27) "BP" 38 Z=I+1:FPRINT"W"Z"FORT- 
23 REM " S"TO"PE"STEFB: F=o H 
24 REM * DATAZEILEN ERZEUGEN * 


25 REM 


39 Z=7+1:PRINTZ"FORI=0T07: READAS: A=DEC (A$) = P=P+A: FOKET+I „ASNEXTI" 

40 Z=2+1:PRINTZ"READR: IFF< >RTHENFRINT"CHRS (34) "PRUEFSUMENFEHLER IN ZEILE"; 
41 PRINTCHR$ (34) "PEEK (63) +PEEK (64) #256: END" 

42 7=2+1:FRINTZ"NEXT:PRINT"CHRS (34) "DATAS RICHTIG EINGELESEN I! P"CHRS (34) 
43 PRINT"GOT049" 

44 FOKE1319,19: POKE1IS20,13: FOKE1321,13 

45 FOKE1322, 13: POKE1323, 12: POKE1324, 13: POKE239 ‚65 END 

46 REM 

47 REM *» DATA-MAKER WIEDER LOESCHEN * 

48 REM 

49 PRINTCHRE (27) "N": X=0 

SO FRINT"RX"RX="X+1":B5OTOSOQ" = POKE1319,19: POKEL320, 13: POKE1321 , 13: FOKE239, 35 END 


Die umfassende Marktübersicht für Hobby- 
Elektroniker und Gomputer-Anwender, 
klar gegliedert: 


9. Ausstellung für Funk- und Hobby-Elektronik In Halle 5 das Angebot für CB- und 


Amateurfunker, Videospieler, DX-er, Radio-, 
Tonband-, Video- und TVY-Amateure, für 
DI] Elektro-Akustik-Bastler und Elektroniker. 
° Mit dem Actions-Center und Laborversuchen, 


2. Ausstellung Experimenten, Demonstrationen und vielen 
für Computer, Tips. 

Software in Halle 4 das Super-Angebot für Gomputer- 

und Zubehör Anwender in Hobby, Beruf und Ausbildung. 


Dortmund Dazu die „Computer-Straße”, als Aktionsbe- , 
. = reich, der Wettbewerb „Jugend programmiert 
23.—- 27. April 1986 wunder stand des WOR-Computer-Clubs. 








 Ausstellungsgelände Westfälenhallen Dortmund: täglich 9.00-18.00°Uhr. 
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sind der 
Flugkapitän 
eines großen Flug- 
objektes, dessen Auftrag 
es ist, das unbekannte Höhlen- 
system einer riesigen Bergland- 
schaft zu erkunden. Die an Bord befindii- 
che Laserkanone ermöglicht es Ihnen, 
sich einen Weg durch dieses System 


zu bahnen und in die noch nicht erforsch- 
ten Gebiete dieses Höhlensystems vorzu- 
dringen. 

Das Labyrinth der Höhlenlandschaft baut 
sich bei jedem Spiel anders auf, daesvon 
dem Zufallsgenerator gesteuert wird. Sie 
haben also auf diese Weise ständig ande- 
re Bilder und dadurch ein großes Maß an 
Abwechslung. Die Steuerung des Spiels 
erfolgt mit dem Joystick. 





Riskante_Flugmanöver 
im unterirdischen Höhlensystem — 


Ladeanweisungen: 

Das Programm besteht aus 2 Teilen. Der 
erste Teil wird mit DLOAD geladen und mit 
RUN gestartet. Jetzt wird der neue Zei- 
chensatz und die Datas für die eingebaute 
Scrollmaschine eingelesen. Durch den 
Befeht NEW löscht sich das Programm 
selbst. 

Der zweite Teil mit DLOAD und RUN ge- 
startet. 


”y 


2 POKES6 „ATI CLR:V=652B0:POKEV+18,PEEK (V+18) ANDZSI + POKEV+L9 3PEEK (U 19) ANDSORÄBSFÜ 
KE1344,0 

4 1344,0 OBA9:RERDA:POKET ‚ArNEXT:SYS832: VOLB: COLORO, 1,03 COLOR, 13 COLOR ‚2,0 
& FORT=128001013200: READA: IFA>-1THENPOKET ‚A:NEXT 

8 PR h162,0,189,0,20B, 157,0,48,187,0,209,157,0,49,202,208,241,96 

9 DATA254 ‚254 ‚254 ,0,2397,237,259,0 

10 DATA170, 85,170,85 „170,85 ‚170,85 

11 DATA 1,24,24,48,16,16,16,16,16,24,24,48,16,48,72,72 

12 DATAO ,0,0,255,0,0,0,0,255,165,165,165, 165, 165,255 

13 DATA255,170,170,85 ‚85 ‚170,170,85 ,‚85_,85 „170,85 ‚170 
14 DATA170.96,96,147,12,21,34,37,9,6,7,233,16,168,100,169, 


‚85 „170,85 
37 ,38,39,40,16,175,192 


15 DATA164,68,164,24,9,246,6,9,16,126,16,16,40,56, 59,59 
ih a 120,129,129,129,126,149,80,37,158,98,40,32,137 ,258,129,129,129, 


: 225,225 


225 ,255,40,83,44,68,42,164,48,85,32.32,96,124,96,76,80,77,72 
DATA-1 

FORT=320001032080: READS: FOKEI „S:NEXT 

en 10,49,50,110,51,50,110,54,50,254,110,58,50,110,60,50,110,61,50 
DATA110,62,50,234,224,110,16,50,234,234 
DATAL10,40,50,110,41,50,110,42,50,110,45,50,110 
DATAA4,50,110,45,50,110,46,50,110,47,50,110,124,50,110, 
127,50 

83 BATA110,123,50,110,122,50,110,121,50,110,120,50,76 
110 RERDAS: IFAS="TS"THENEXIT:ELSEPOKEBF1+X „DEC LAS) EX=XH15LOOF 
230 DATAAS,DF,38,E9,01,85,D8,A5 
240 DATAEO,E9,00,85,D7,45,D8,18 
250 DATA&9,01,85,DA,A5,D9,69,00 
240 DATASS ,DB,A9,00,85,DC ,A4,DE 310 DATADA,18,67,28,85,DA,AS,DB 
270 DATAB1,D8,71,DA,898,C0,00,DO 320 DATA&9,00,85,DB,18,70,CF,15 
280 DATAF7 ,E6,DC,A5,DC,C5,DD,DO 321 NEW 


zuo mare ea 0 | 0 Un 


125,50,110,126,50,110, 


290 DATA01,60,A5,D8,18,69,28,85 
300 DATADS,A5,D7,69,00,85,07,A9 


320 DIMAS (32) cHI=100: HI#="XARGON” 
330 RESTORES00: FORF=1T032: READAF (FI NEXT: 
340 VOLB: GOSUB1 2000: 5P=3072 


RU=0: PU=0: J=0: TR=0: XQ=0: LE=5:RT=0 


- 4300 IFLE<{1THENSSO 


410 COLDR1,72,6: VOLB:SP=3072 

420 POKE221,725 

430 POKE222,37 . 
440 POKE223 SP-INT (5P/256) #256: POKE224 , INT {SP/25@) 

470 =66: BOSUB 10000: B=3300: PDKEB ‚64: D=0: A=0: TRAPSO0O 
480 5Y532000 
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481 
491 
492 
4973 
474 
495 
495 
497 
498 
Soc 


522 
523 
524 
BE 
26 
327 
Sz8 
327 

30 DATA"-EH 
551 DATA" 
5352 DATA"-EH 
53353 DATA"-EH 
554 DATA'CEN 
usa DATA’ 
556 DATA'--M 


DATA" SH 
DATA" 
DATA" | GM 
DATA" IE 
DATATIEN 


IFIDY 1) >127 THENGOSUBBOOO 
IFIOYtI)=1THENA=-80: GOSUBS000: SOUND ,79,1 


SYS32000 


programme 


IFJOY 1) =3THENA=—-40: SDUND1 „44,3: 60T0496 


IFJOYt1)=7THENA=-1: G0O5SUB3009: SDUNDI1,44,3 
A=A+40: IFFEER (B-1+A}=32 THENGOSUBSOOO 


IFPEEK {B+A) >64 5STHENSO0O 


IFPEER (B+A) =32 THENPOKEB ‚32: POKEB-1024,97 12 B=B+A 
A=0: POKERB,C:POEEB-1024,1724 
GOTO480 


DATA” #3 --KE- E20 SE --B  -" 
DATA’ ARBIHAU- EE- EH-E-- 


Ku 
Ku 
u 
Eu 
Kal 


DATA" HI 


u 
vu 
u 
um 
81] 
u 
ai 


au 
El 
=) 
Eu 
1 
Bl 
[= 1 


1: | 
RM HE 


Ki 
Eu 


Eu zu Ku Eu 
“u BEH-MEH-EEl 
KEITH 
EEE SEI 
Eu Eu Ku Em 
m Sn u 
Ku EI Eu Eu 
“u EH-SE RI 
ERt-SE-U 
SHE 
a get ii || 


ur] 
Ki 


ERIERISHEEERETN 


ai 


m En Eu Eu 


m Lu Ku 
Eu u Ku 
um Km 
Ku 2 
zu u 2 
ET IAT Eu 
au it Ku 
SE UT Zul 
am Im 
Eu u 
au I ui 
Ku Ta 
Eu 


Bat EN a EN En  E-" 
ERNSEEREERGE- ES EHE" 


[at] auch Lesdcn | 2) ]| 
[eu Tui) | an | 
SE EEE Su 
Eee En Ir 
I LE SCı En | zu) || 
Moe as DE 2 Ei} 
Eu EEE 
El 
KRISE HR Ei 
[a as) | cn 1 ac j 


ua 
u Rn 


um 
an 
2 ]j 
u 
a 
zu 
zu 
u | 
u || 
[= || 
Ye] 
u 


an 
Hi 
0} 
ui 
a 
Eu 


Il 


au 
zu 
zu 
|| 
ER 


u 
au 
21) 
zu 
zu 
zu 
zu 
zu 
ui 
m 


m I+" 
u Et” 
mt ROH" 
SUE- ZU" 
I HH " 
Eu B-" 
a Tu 
Km Br" 
m BEI8" 
Ku Ku" 


CuFoERt Zr 


gm Eu" 


537 DATA’ASHH-EH 
538 DATA’ Kl 
53? DATA" Il 
540 DATA" El 
541 DATA"-EI SU EN 
542 DATA" SH SH 
545 DATA’ SEHEN 
544 DATA" I EN 
545 DATA" EN Il 
546 DATA" IN N 
547 DETA'— EI 
548 DATA" SE Il 
549 DATA" SI Kl 
550 DATA’ ET 
551 DATA" SM 
552 DATA" U Il 
553 DATA" U BU 
1000 RETURN 

2000 IFPEEK (B-80) =32THENPOKEB „32: B=B-80: POKEB „D: 6010472 
2010 GOTOSO00 

3000 IFFEEK(B-1)<>32THENA4000 

3001 POKEB,32:FOKEB-1024,97 


3002 SYSB91:POKEB,67: POKEB-1024, 124: DSINTIRND (1) #241) 2J=d+1: :SCHAR1,0,2,""s PRINTA 
#(D) 
3003 
RU" =" 
3004 IFRU-RT=10THENRT=RT+10: GOSUB13000 
39095 RETURN 


Eu 
eu 
Eu 
u 


zu Ei a 
[et Dt Ten © gi [| 
[ut Di Fa) 3 zurc 1 
ge Eu Ku EB 
SH ur Ele 
SHE Ku 
EN KN-Ku2u 
E-REH-KEr-i 
SN-H 
EHER 
Zr SE Ba 
Kt u EI 
EI El 
a ER-BR- 
I EBEN 
Ku ERH-EE EI 
BIER ER EuE 1 


u u 
I KR EI 
[a CI Ki 
KR CO KH 
KH LER Ci 
KE 2 Ku 
Ka IE KH 
m LU KH 
Ku ER KU 
SE Kl SE 
za Gm u 
u EU SEH-EEI SEH-N-SEI- 
EI BEE I BR BEH-ERI-EE-IU 
SHE CH DI DEI RRI-IHH-IHE KU 
SH DE [I KEI ERNEUT KU 
DI DEI DEI KH-ZEI-KENEH DE 
II I El KR KERTE-E 


zu Bu Eu al 
u Em EI I SEI Dr 
zu KEH-SIE Sn a 
EUSEA-E- E Zu N u E-" 
EIKE EU U EEE Bu Et" 
su K-2E-E ERL Ta TO -" 
Eu CHt-KE-KR-Il ER Eu" 
u Zu Bu u a Dr" 
ERZIEHER a a a u" 
Eu EEE EN Kl u" 
ERISRH-23- EI a Eu EB En Br" 
Ku zu zu Bu" 
Eu EB ER-EUIE" 
au ER EA" 
Eu ER ER B*" 
zu RE Er e" 
Ei Gm -Z@e" 


gi aa 
Eu Bl" 
Bu" 





IFJ=25THENRU=SRU+1:J=0: CHAR1,0, INT CRND (13 *135+4) „"":CHAR1 0,14, "ZONE" PRINT 


13 


4000 IFFEEK (B-13=44THENRETURN 
5000 FORI=8TD1STEF-1:POKEB, 76: 5DUNDS, 1000 ,9: POKEB,67: SOUND3 „456,9: VOLI:SYS32000: 
NEXT 
5095 VOLBS:FORI=1TO020 
5010 IFPEEK (B+H493=32THENPOKEB , 32: POKEB-1024 ,97 :B=B+40: 'POKERB), 67: POKEB-1024,124 
sot1 IFPEEK (B+40) =32THENSOUND1 , 1*50,3: SOUND2,I#47,3:NEXT 
5020 POKEB,78:FORI=8TD1STEP-1: SOUNDZ, 1000,53: SQUNDZ, 444 ,3:VOLI=:NEXT:VOLS 
5028 FORI= 4T018:CHAR1,18,1I," FTTTTTTITTITITTTI NEXT 
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programme 


5029 FORI=5T017:CHAR1,19, 1," "NEXT 

5030 CHAR1 ,20 „6, "CHAMBERS”" = PRINTRU=LE=LE-1 

5031 CHAR1,20,8,"XORKS :":PRINTXO 

5032 ECHAR1,20,12, "METERS: ":PRINTRURZ2S+J 

50353 PU=RUK*25+TR#504J4X0#20: CHAR1 20,14, "POINTS: ":PRINTPU: POKEB-1024,97 

5034 CHAR1 ‚20,10, "TEKKLES" PRINTTR= IFPU>HITHENHI=PUS HIS=-N$S 

50535 CHAR1,20,16,"LIVES » "3 PRINTLE:5OSUB11100: C=46: A=0: IFLE<1THENSSO 

5040 FORI=4T018:CHAR1,18,1," "NEXT: B=3500: FORI=B+38T0B+42: POKEI 





5041 NEXT:50T0480 
8o00 SOUNDS , 1000 , 2: SOUND3,444 ,2: FORI=B-1TOB-10STEP-1 
8001 IFPEEK (I) =37THEN: POKEI „68: POKEI,32:NEXF 
8004 IFPEEK{I)=776G0T09000 
8005 IFPEEK (I) =81THENSOUND?2 „800 ,5: SDUND1 ,770,10: XO=-X0+i 
g004 IFPEEK (I)< >65ANDPEEK {I < >32 THENSOOB 
9007 RETURN 
8008 IFPEEK (1-40) =B1 THENSDUND2, 810, 10: SOUND „798,73 PDKEI-40 ,32= XU=XD+1 
8009 POKET', 78: FORZ=8T01STEP-2: SOUNDS, 645,2 «VOLZ:NEXT:FOKEI,32:VOLB 
8010 POKEI „32: RETURN 
30009 FORO=1-41T01-39: POKEO ‚78: POKEO+40 ‚78: POKED+80 ‚78: SOUNDS ‚0/45, 3:S0UNDS 445,3 
:NEXT 
9010 FORO=I-41T01-39: POKEO , 32: POKED+40 ,32: POKEO+80 ‚32: SOUNDS ,0/45 ,3: SOUNDS, 445,3 
sNEXT 
9920 TR=TR+1:RETURN 
10000 SENELR 
10001 FORI=0TBLECHLOR1 „2, 4+12 CHAR1 ,0, 1, "777777917 
"NEXT 
10002 FORI=221024: COLOR „2327-1: CHAR1 ,0, 1," — 71 
“ 
100253 NEXTSCOLOR1,3,4: CHAR1 53,23, "SHERO--E. COLDSSUS-SOFTE" . 
10030 COLOR1,2,6:FORI=10T021:CHAR1,20,1," !ENEXTICHAR1,20,9,"- -— - u " 
10997 COLOR1,2,6: RETURN 
11100 RESTORE11103: FORE=1T017:READX ,Y=FORI=1TOBSTEP4 
11101 VOLI:SDUND1,X, Y: SOUNDZ2,X+5, 3 NEXT: SOUNDZ2 ,X,Y=NEXT 
11193 DATAS516,10,5371, 9,996, 3,571,10,162, 5,335; 5,518,10,345,20,455, 5,576,10 
11104 DATAs#85,10,704, 5,695, 5,453,20,6453, 5,455, 5,5396,10 
11111 RETURN 
12000 SENCLR 
. 120072 CEHOR1,6,6 





12003 CHAR1 26524" — — — 7 —— "5 COLOR1,5, 57 CHAR1 8,3," 000m un 
12004 COLOR1,6,4 “ 
12005 CHAR1 36443" — — 2—— - -"SCOLORI,6,3:CHAR1,6,5," 0 n oo. 








1200& COLORI,6,2:CHAR1,6,6,"- — 
12010 CHAR1,4,10,"C.BY COLOSSUS-SOFT 1985": CHAR1,6,12,"HIGH BY "PRINTHI$S" "HI 
12042 COLOR1,8,1:CHAR1,8,16," 0- 99 NOVICE":COLOR1 ,B,2:CHAR1,8,17,"100- 1977 BE 
GINNER" 

12943 COLOR1,8,3:CHAR1,8,18,"200- 497 SEMI “2 COLOR1 ,8,4: CHAR1,8,19,"500- 997 NE 
WEOMER” 

12044 COLOR1,8,5:CHAR1,7,20,"1000-1997 EXPERT": COLOR1,8,6:CHAR1,7,21,"2000-4997 
PROFI ” 

12045 COLGR1,8,7:CHAR1,7,22,"5000- HER O" 

17048 GOSUB11100 

12047 COLOR1,8,1:CHAR1,4,14,"YOUR. NAME": INPUTN$ 

12050 GETAFS: IFA$=" "THENRETURN 

12100 G0T012050 

13000 FORI=STB10:CHAR1 ,O,1,""TTTITTTTT":SDUND2,118,20:S0UND1,118+1,105NEXT 

13100 CHAR1 ,1,7, "WBONUSE" 

13104 COLOR1,3,4:CHAR1,1,25, "250 METER-ZONEM@":CDLOR1,2,6 

13105 BO=TR*X0*10: FU=PFU+BO 

13110 FORI=1TOBO: CHAR1,1,8,"":2FRINTISNEXT 

13999 RETURN 
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Bewerbung als Programmautor 
Name: _.__ Vorname: 
Straße: ___ ..__ 2 Wohnort: 
Titel des Programmes: _— _—_ _ ——————— _______ Computersystem: 
Erforderlicher Speicherplatz: 
; Erforderliche Pheripherie: 


1: Ichversichere hiermit, daß ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ich bin damiteinverstanden, daßSie 
I: mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
“ Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


Folgende Unterlagen liegen diesem Schreiben bei: ' 
\ Kassette: ____Diksete: ________ Dokumentation: ____ Listing _________ Rückporto: 


Unterschrift des Programmautors: _ 


Einsenden an: TronicVerlag Abt. Programmentwicklung, Landstraße 29, 3444 Wehretal 1 


Auftrag für Gelegenheitsanzeigen in „Compute mit ..“ 


i Name und Adresse 
An „bompute mit ..“ 


Tronic-Verlag 
Postfach 


3444 Wehretal 1 Unterschrift 


Unter der Rubrik „Kleinanzeigen“- ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- "a ERST rs tele le 
anzeigen für Verkaufsangebote, EEE 
Kauf- und Tauschgesuche, Kon- 

taktaufnahme bzw. Erfahrungs- 

austausch usw. 


a I 





Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gefegenheitsanzeige nur 15,- DM 
Ken nicht unter Chiffre erschei- 
nen 

Eine Veröffentlichung erfolgt nur 


l 
gegen Vorkasse! Zutreffendes ankreuzen 


Kleinanzeigen jetzt suche © Software suche O Hardware ” O Tausch Ö Versch. 
noch pr eiswerler biete an OÖ Software - biete an O Hardware OÖ Kontakte O Chiffre 
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Biete Hardware 









C-tronic » C-tronic # C-tronic 
»> Sonderpreise * 
Datenträger, Kabel, Druckerpa- 
pier, z.B,C-15 ca.5St. DM 9,80; 
10 St. DM 18,-. Disketten DS, 00 
DM 99,50; Etiketten z. B. 1000 St. 
17,50; Joystickkabel DM 7,20; 
Info gratis, oder gleich bestellen 
bei: C-tronic, M. Gauger, Weis- 
senhofstr. 21, 7121 Löchgau. 


A en 


* Werk. Schneider CPC 464 * 
(5 Monate alt) mil Software,. 
Hefte, Disketten und Datenre- 
corder für 1200,- DM wegen 
Systemwechsel. Dr. H. Hübers, 
6601 Hanweiler. @ 06805/4840 
ab 18 - 19 Uhr. 


mn 


SCHNEIDER MP-1 {Anschluß- 
modu! für das Fernsehgerät), 
neuwertig umständehalber zu 
verkaufen. Kontaktaufnahme un- 
ter Tel. 096 06/286. V-Preis. DM 
95,-. 


0 


# ACHTUNG!N ACHTUNG!!! * 
Verkaufe dringend C-16 mit Data- 
sette und ca. 60 Programmen 
und oa. 15 Superspiele (rlugsi- 
mulator). VHB 200,- DM. Bitte 
melden bei: Dietmar Schmigon, 
An den Gehren 34 b, 4800 Biele- 
feld 1. SCHNELL! 


En] 


Verkaufe Commodore Grafik- 
Drucker 801 neuwertig + 500 
Blatt Papier. Noch 2 Monate 
Garantie für VB 420,-. 

Harald Rossa, Pestalozistr. 3, 
8550 Forchheim, ® 09131/ 
15492, ab 16.00 Uhr. 


nn 


TOP ANGEBOT - Verkaufe 
Schneider GPC 464 (3 Monate 
alt) + viele Spiele + Bücher für 
+1300,- DM wegen Systemwech- 
sels. Marco Thieimann, Tel. 
05673/7212. 


a 0 


16 


+ ACHTUNGIH ACHTUNG! + 
Verkaufe Commodore 16 + Data- 
sette + Joystick + Programme. 
Preis nach Vereinbarung. Ver- 
handlungsbasis 190 DM. Ange- 
bote an: Jörg Ecker, Bildstock- 
straße 84, 6689 Merchweiler 
oder Tel. 06825/46904. 







z- Verkaufe C.116 mit Datasetie 
Neu, originalverpackt, Garantie 
nur 190 DM. Zuschriften an: 

2 Wutzer Michael 











Birkenlohweg 20 
8079 Preith 


men 


Verkaufe Schneider CPC 454 


1 Jahr alt mit Farbmonitor wegen 


Systemwechsel. Incl. Joystick + 


Data Becker Bücher + Master 


Chess + div. Cassetten für 1100,- 


DM (VB). B. Banik jr. Weissenbur- 


gerstr. 32, 8580 Bayreuth. Tel. 


0921/54159 (ab 16 Uhr). 


Tausch 


yr +++ +++ +++ ++ 
VC-20 + VC-20 + VC-20 
Tausche VC-20 Spiele ge- 
gen andere Software für 
VC-20; Marko Görg, Inden 
Wingerten 49, 6100 Darm- 
stadt 23. 

4444 rtrtrtr tt 


Schneider CPC 464: Tausche 
verschiedene Spiele und 
Dateien. Alles nur auf Kassetten. 
Bitte Listings von Spielen schik- 
ken an: Frieder Kanitz, Rotweile- 
rin 22, 7440 Nürtingen. Alle Brie- 
fe werden beantwortet. 


ee 
CPC-464 CPC-464 CPC-464 
Tausche CPC-464 super Soft- 
ware. Tausche meine Pro- 
gramme in ganz Europaper Post. 
Also bitte schreibt an: Timo Wid- 
mann, Achalmstr. 15 in 7446 
Oberbio hingen. 

CPC-464 CPO-464 CPC-464 


®® Tausche und verkaufe @ @® 
Profi-Software für Commodore 
16 z. B. Flugsimulator: Defence 
usw. Tel. 02181/63947 von Jür- 
gen Tenten. 


++ +++%+ 
++ +++ + 





Egg 


BIG SOFT USER CLUB 


Besitzt Ihr einen: 
G16-C 16 - C 64 - TVOWY/AA - 
Atari 600 XL - Atari 800 XL oder 
einen CPC 4647 
Wenn ja, dann seid Ihrbei unsarı 





Club- 


Nachrichten 





Ark CAT 
* Wer hai Lust beim größten * 
* C-16/116 - Club mitzuma- # 
%* chen? Wir bieten einen tol- # 
* len Semice mit eigener *r 
* Fachzeitschrift! 
* gegen Rückporto bei: * 
%* Thomas Schroeder, Timser # 
* \Weg 26, 5440 Mayen 14. %* 
dk %* * Testen Sieunsl_ kW * 


Info's * 


der richtigen Adresse. 


Folgendes bietet unser Club: 

- Eine monatliche Clubbro- 
schüre mitvielen Tips + Tricks, 
Listings, Ideenecke, Problem- 
lösungen, Marktübersichten 
und vieles mehr. 


- Softwarebibliothek, wo Club- 
mitglieder ihre eigene Soft- 
ware tauschen können. 


- Großer Erfahrungsaustausch 


- Vielleicht betreiben wir noch 
eine eigene Mailbox 


Bei großer Nachfrage wären wir 
bereit, uns noch einen MSX- 
Computer zu beschaffen. Ge- 
nauere Informationen können 
gegen 80 Pf bei: 
G. Herzfeld 
Wiechertstraße 34 
4030 Ratingen 1 
werden. 


angefordert 


Also greift schnell zur Tinte und 
ab mit dem Brief zur Post. 

PS. Wirwollen anders alsandere 
Clubs werden. 





Gompuhs ib 


Schneider CPC CLUB Bayreuth 
Wir suchen Mitglieder für unse- 
ren Club; Softwaretausch und 
Sammelbestellungen; 
Tausch; Clubzeitung »# schreibt 
an: Singh, Achim, Pottaschhütte 
10, 8580 Bayreuth, Tel. 0921 ! 
53205. 

wr% 664:464 6128 wir h 











INFO- 





“ Tronic-Verlag 
. Postfach 41 - 
3444 Wehretal 1 


Neue Anschrift: 
Der „Club derEDV-Füchse" ist at 
sofort unter neuer Anschrift zu 
erreichen: 

CdEF, Hansjakobstr. 30 

7552 Durmersheim 





m 
2% sr CLUBGRÜNDUNG ıı #r ? 
Schneider GPC Computerciub 
Fulda neu gegründet. Kontakt: 
bitte unter folgender Anschrif 
. Peter Hillebrecht, Liedeweg 6/ 
6411 Künlell , Tel. 0661/31573 
re 2% 


re 2 






Suche Hardware 


>>» SUCHE BILLIG!!! @& 
Floppy-1541 oder 1570 

Biete 350 DM oder 280 Fr!!! 
Suche laufend die neueste 
Prgr. auf Disk!!! Angebote an: D 
sarzens Renaud, Ringstraße 5 
CH-3327 iyssach, ® 0% 
453708, (Vorwahl für Schwe 
0041. 


m en u 


Suche Floppy 1541 gut erhalt 
bis 200,- DM. Angebot an: Bo 
Brämisch, Oberbergstr. 19, 55 
Bleialf. 


ee RR 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 


Verschiedenes 


C-16/116, plus 4 
Commodore Sachbuch- 
reihe, Band 6, 


ROM-Listing (Deutsch} 
Erstklassig Dokumentiert 
DM 49 + Nachnahme 
und Verpackung 
Karl-Heinz Pflaum 
Schönblick 17, 
5350 Euskirchen 27 





BÜCHER für alle Computer- 
Typen können Sie bei uns 
bestellen. Wir liefern auch jeden 
in dieser Zeitschrift genannten 
Titel, Bücher Becks 
Postfach TO 
4250 Bocholt 


Wohnt nebenan ein CPC-Profi? 
Bin Einsteiger (54) und suche 
Kontaktu.Erfahrungsaustausch. 
Claus Piotrowski, Am Sanders- 
hof 31, 4350 Recklinghausen. 
Ruft doch mal an, Tel, 02361/ 
498868. 


.® HalloC-&4und 886 
. VC-20 Besitzer 

Falis Ihr keine Lust auf 
langweiliges, zeitaufwen- 
diges Abtippen von Pro- 
grammen habt, kann ich 
Euch nur sagen: kein Pro- 
blem. 

Für 0,02 DM = 2 Pf pro 
Zeile tippe ich jedes Pro- 
gramm für VG-20 + C-64. 
Arndt-Holger Kiessling, 
Vieringstraße 64, 6710 
@ 6 ®Frankentihal/Pfaz.e @ & 


Biete Software | 





‘x VC-20-Besitzer verkauft: :7 
8K-Ram-Erweiterung für 60,-- 
DM und Spiele-Gassetten z. B. 
Defender oder Ufo. Adressen- 
Register Black-Jack-1744 für 
10,-- DM und Joystick für 15,-- 
DM. Adresse: Martin Siahmer, 
Friedrich-Ebert-Damm 26, 2000 
Hamburg 70 


vier ACHTUNG vr 


3/86 


Vokabelstar C-16/C-116 
leichte Bedienung durch 
Menue - deutsche + franzö- 
sische Zeichen-Äbfrage 
nach dem bewährten Kartei- 
kartensystem - gute Voka- 
beleditierroutinen vorhan- 
den. Gegen Einsendung von 
20 DM erhalten Sie Kassette 
+ Bedienungsanleitung: 
M. Suer Walgernweg 22, 
4410 Warendorf 1 





EM Verkaufe meine VC-20 Pro- I 
EB gramme: GV-Robothouse U 
BE (Action 5 DM, Geisthaus I 
EM (Action) 6 DM, Schatz der I 
B Unterwelt + (Grafikadvent.) 
MB’ DM. 8K-Weltentor (Text- I 
Madr) 8 DM, 16K-Advent.: IE 
WB zentrax I 16 DM, Kaptain I 
BKidd 12 DM, TV 208 DM. M 
B Betal8DM. FürPorto+ Kas- I 
Bi sette 4 DM zum Preis. Keine I 
EB Disklief. möglich! M. Platt, I 
MCarl-Orf-Sir 4, D-B721M 
EB Hambach. | 
BBEBEBSEBZBEBBAEBE 


CPC 464 Vokabeltrainer! 
Das Programm enthält 
viele Vokabeln und über 
100 unregelmäßige Ver- 
ben. Sie können noch be- 
tiebig viele Vokabeln ein- 
geben und abspeichern. 
Programm auf Kassette 
nur DM 19,-. Zu bestellen 
bei: Thilo Schray; Aiten- 
bachweg 8/1, 7120 Bletig- 
heim-Bissingen. 
Akku hihi 


re Zi Bi Zr. 


Br 


Bra 2 


SCHNEIDER CPC-464/664 
ir COMMODORE 64 Ak 
{rır COMMODORE VC-20 werk 
Yrırrr COMMODORE 18/116 Ark 
Yrererrı COMMODORE PLUS 4% 
Riesige Auswahl an Soft- und 
Hardware vorhanden. 

Infos bei: A, Bachler, Postfach 
429, 4290 Bocholt 


kukclkaiacNE a: 
seibstgeschriebene Spieipro- 
gramme für C-16/116. Info bei 
Wolfgang Dunczewski, Schmidt- 
bornstr. 18, 6230 Frankfurt 80. 
80-Pf.-Rückumschlag beilegen! 


Commodore 64, VC-20, C-16/ 
116, 4+6 Spiele, Denktraining, 
Lotto, Foto,- Film-, Vide-, Musi- 
karchiv, Fibu, EK-VK, Kfz-Paket, 
Bibla, Karteikasten, Adress, 
Rechengenie, Tabello, Digitalo, 
Rechengenie, Handbücher ab 
9,80 DM. 

Katalog gegen 80-Pf-Briefmarke. 
T. Hafstedes Computerservices, 
An der Windmühle 8, 5010 Berg- 
heim 5 


THE PROFESSIONAL CLOCK 
1.2 Super-Uhr fürGPG 464, 100% 
MC Abweichung 58/24H, Alar- 
meinricht, Großanzeige, RSX- 
Befehle, Progr. verschiebbar, 
Schaltuhr möglich. Cassette für 
BM 12,- incl. Vers. (Scheck, 
Briefm.) Georg Hucnker, Erlen- 
bachhof, 7463 Rosenfeld 6 


%* Lohn- u. Einkommensteuer ® 
Suer Jahresausgleich, Steuer- 
kl.-wahl, Monatsiohnst.: Cass, 
60,- Disk. 70,-/75,- DM. Jährl. 
Aktualisierung ohne Neukauf. 
info gegen Porto für C-64/128 u. 
Schneider CPC 464/664/6128. 

Horst |Ichen, Niederfelderstr. 44, 
8072 Manching, #08459/ 1669 


Technisch-wissenschaftliche 
Programme, sowie Lehrpro- 
gramme in Mathe- und Fremd- 
sprachen für Commodore-VC-20 
sucht Hans-J. Bobak, Kapellen- 
str. 2, 6277 Bad-Camberg, Tel. 
06434-88119. 


VC-20 PROGRAMME JV: Privat. 
Textadventure Schloßzauber + 
Psychaterspiel -_ beides 
Deutsch - zusammen auf Cas- 
sette 10,-—- DM. 

I Volker Coert, Söllingstr. 4-8 
4300 Essen 1 
Komplette Liste gegen Rück- 
Porto! Resettaster 5,- DM VC-29 
Lexikon. Reparaturen von Tasta- 
turen (Mech). Suche Spiele + 

Programme bis I6K. 


C-16, G-116, plus/4 Superspiele! 
info 1 und 2 gegen Rückporto bei 
Hannes Kaltenbach, Prielmayer- 
straße 16, 7990 Friedrichshafen ? 





Compuhe mib 


C-16/116 C-18/116 C-16/116 
Achtung! Keine Programme? Bei 
mir gibt es eine Auswahlsen- 
dung mit 5 Topspielen für nur 10 
DM. Bei Interesse bitte überwei- 
sen auf folgendes Konto: Konto- 
nummer: 3603768, BLZ: 
41450075 Sparkasse Soest. 
Bestellungen bitte an: Roland 
Fuchs, Blanckenageweg 9, 
4770 Soest. PS. Info liegt bei! 
Auch EPC Progamme. 


%* Supersoftware beim Al-C-C* 
Brunos Boxing, S-Games I+Il, H. 
Games HIl, Broad-Street, Print 
Shop, Airwolf, The Rocky Horror 
Picture Show, Karateka, Explo- 
ding, Elite, Franky goest to Holly- 
wood u.a. Info mit Liste beim 
„Al-C-G" auch Tausch (bitte 
Liste beilegen). Alles an Andreas 
Neufeld, Rovenkampstr. 1, 4460 


Nordhorn. All-Commodore-Club. _ 


Umfangr. Hausverwaltung für 
CPC 464-6126, 23”-Disk. DM 
150,-, Kassette DM 140,-. Info 
anfordern, Tel. 0212978103. 


Commodore 18/116: Wir haben 
die Programme, die Sie suchen! 
Software schon ab 1 DM! Infor- 
matioen kommen kostenlos von: 
A. Bachler, Postfach 429, 4290 
Bocholt. Außerdem: Das Überra- 
schungspaket mit 5 Top-Spielen 
für nur 15,- DM oder die Insider- 
Mappe für 6,- DM. Bezahlung per 
Schein oder Scheck. 


% ir # COMMODORE 64 wc * 
49 Disketten voller Software!H 
Free Soft: Public Dawain Soft- 
ware von versch. User-groups 
aus den USA. Hunderte von Pro- 
grammen: Utilities, Textverarbei- 
tung, Lernprogramme, Spiele. Je 
Disk DM 10,- alle 49 DM 400,-. 
Kopiergebühr incl, Disk+Porto. 
Liste 0,80 Marken. Beltingrath, 
Trift 10, 5860 Iserlohn. 


VC-20 Programme, 
Spiele für Grundversion bis 16K- 
Modul, Angebotsliste gegen 
frankierten Rückumschlag bei 
Horst Querfurt, Postfach 
843042, 4320 Hattingen 14. 


Video- 
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programme - 
‘New: Sonderzeichen werden durch Klartext ersetzt! 


Eingabe-Hinweise für Commodore C-64-Benutzer! 


tm Ihnen die Eingabe unserer Listings zu erleichtern, | 
werden zukünftig alle G-64-Listings ohne Steuerzeichen 


Tastenbezeichnungen für Steuerendes 










net, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie 


abgedruckt. Alle Steuerzeichen werden in unseren | 
in jedem Tronic-Magazin. 


LISTINGS durch Klartext, welcher die Taste kennzeich- 


{TRONIG-NORM) 


GURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR UNKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 


TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTES TASTENEBEN RECHTEMSHIFT 
SHIFTTASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN. 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE) 
FUNKTIONSTASTE FI 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE F5 

FUNKTIONSTASTE F7 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F& 

FUNKTIONSTASTE F& 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 


ROT 
TUERKIS 
PURPUR 
GRUEN 

BLAU 

GELB 
INVERSE EIN 
INVERSE AUS 
ORANGE 
BRAUN 
HELLROT 
DUNKELGRAU 
MITTELGRAU 
HELLGRUEN 
HELLBLAU 
HELLGRAU 
CONTROL 


CONTROLTASTE & 3 
CONTROL-TASTE & 4 
CONTROLTASTE & 5 
CONTROL-TASTE & 6 
CONTROL-TASTE & 7 
CONTROL-TASTE & 8 
CONTROL-TASTE & 9 
CONTROL-TASTE & 0 
COMMODORE-TASTE & 1 
COMMODORE-TASTE & 2 
COMMODORE-TASTE & 3 
COMMODORE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORF-TASTE & 7 
COMMODORE-TASTE & & 
CONTROL-TASTE ZUSAMMEN MIT 
DEM NACHFOLGENDEN ZEICHEN. 
(2.8. CTRLA ENTSPRICHT CTRL & A) 


Wichtig: Folgende Zeichen erhalten Sie auf den Tasten: ” A “= Pfeil nach oben (Potenzierungstaste t)- ”\* = Pfundzeichentaste (£) 
Feigenden Bali demnstriert di Arbeitsweise unsare Syetem: "_“ = Pfeil nach links (Taste ganz links oben) 


STANDARD AUSDRUCK: 






Wie in dem Beispiel zu erkennen ist, wird das Herz-Symbol durch das Wort CLEAR er- 
setzt. Dies bedeutet, Sie müssen die Taste CLEAR drücken, um das Herz-Symbol zu 
erzeugen. Sollten Sie einmal nicht wissen, welche Taste gemeint ist, hilft Ihnen ein 
Blick in unsere Tastenitabelle bestimmt weiter. 

Um im Listing Tastenbezeichnungen von Grafik oder normalen Texten zu unterschei- 
den, werden alle Tastenkennzeichnungen in geschweifte Klammern gesetzt. Diese 
dürfen selbstverständlich nicht eingegeben werden. Auch Leerzeichen in- nerhalb ge- 
schweifter Klammern dienen nur zur Trennung einzeiner Tastenfunktionen und dürfen 
ebenfalls nicht eingegeben werden. Um die Tastenfunktionen noch besser hervorzu- 
heben, werden diese in unterstrichener Kursivschrift (Schrägschrift) abgedruckt. 


10 At="TEST":FRINT"LERRKERIHALLONBELEUTE 1®sPRINT"TRONIC VERLAG“ 
20 FRINT"LSFENDE" 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILEN: 


10 AS="TEST":FRINT" CLEAR RIGHTS DOWN R 
EB>HALLO{RIGHTZ BLUEYLEUTETSPACE":PRIN 
FT" TRONIE:ISPACEIVERLAG" 

20 FRINT"{CYAN PURPLE, GREENYENDE*" 


ı34> 
<147> 


ziert an, ist jedoch in der Praxis ganz einfach. Wenn man 
sich erstan die in Klartext geschriebenen Steuerzeichen 
gewöhnt hat, wird man den graßen Vorteil dieser 
Schreibweise erkennen. 


zeichen innerhalb von Anführungszeichen werden auf 
diese Art gekennzeichnet. Das bislang übliche Abzählen 
einzelner Zeichen entfällt somit völlig. 

Alle Zeichen außerhalb von den geschweiften Klammern 
werden normal abgedruckt und auch eingegeben. 

Auf den ersten Blick hört sich das sicher etwas kompli- 


Steht hinter einer Tastenfunktion eine Zahl, welche eben- 
falls unterstrichen ist, bedeutet dies, daß die letzte Ta- 
stenfunktion mehrmals betätigt werden muß, Die in un- 
serem Beispiel abgedruckte Funktion RIGHT3 bedeutet, 
daß die Taste RIGHT (Cursor rechts) 3 mal hintereinander 
betätigt werden muß. Auch einzelne oder mehrere Leer- 





Checksummer C 1.0 istein Prüfsummer-Programm, was 
die Eingabe von Programm-Listings zum wahren Ver- 
gnügen macht, Tippfehler werden schen während des 
Eingebens der einzelnen Programmzeilen erkannt Die- 
ses System zusammen, mit dem neuen Druckverfahren 
gewährleisten das unsere Listings meist fehlerfrei ange- 
druckt werden. 





Arbeitsweise und Aufbau unseres Checksummers: 

Unser Cheaksummer besteht aus einem kleinen Maschi- 
nenprogramm welches ats Basic-Loader abgedruckt ist. 
Tippen Sie diesen Loader ein und speichern Ihn auf Kas- 
sette oder Diskette, denn Sie können ihn zukünftig immer 
wieder benutzen. 

Der Siart erfolgt durch den Befehl „RUN“, Nach kurzer 
Zeit meldet sich der Rechrer mit der Meldung „TRONIG 


Gompute enib 


"Der Checksummer ist hun aktiv und man kann ein 
beliebiges Tronic-Listing eingeben. Nachdem eine Zeile 
mit RETURN abgeschlossen wird, erscheint links oben 
auf dem Schirm eine Prüfzahl, Vergleichen Sie diese mit 
der Zahl im Heft hinter der Zeile. Stimmtdie Zahl überein, 
ist die Zeile richtig eingegeben, 

_ Auf diese Weise können Sie das gesamte Listing schnell 
und fehlerfrei eingeben. 


% 


Interessant ist auch, daß bei der Eingabe vor Zeilen die 
üblichen Abkürzungen benutzt werden können, ohne die 
Checksumme zu verändern. Leerzeichen außerhalb von 
Anführungszeichen werden ignoriert, da diese auf die 


summer und Ihr Programm beeinflussen sich nicht ge- 


genseißg. Wollen sie den Ghecksummer abschalten, ge- 
ben Sie einfach POKE 1,55 ein oder betätigen Sie die Ta- 
sten-Kombination RUNSTOP und RESTORE. 


Programme 


Wer den Checksummer nieht eingehen mächte kann diesen auch 
unter der folgenden Bestellnummer beziehen: 
Bestellnummer: 


Ausführung der einzelnen Befehle keinen Einfluß haben. 
Sie können Ihr Programm auch starten, denn der Check- 


Q@ REM x#x#%* TRONITC CHECKSUMMER. #eer% 
1 REM VERSION C 1.0 BEI FRANK BRALL 
2 REM 
5 FOR I=832 TO 1008: READ A:5=5+A 

4 FOKE I,A:NEXT IzIF 5<>16397 THEN FRINT 


"FEHLERISPACEITNISPACEIDATA-ZEILENTSPACE 





31 {SPACE} (10-19) *:5STOr 

5 SYE B32:5=0: FOR 1=58454 TO 5B&063: READ 
A: 5=5+A 

& FÜKE I,AsNEXT I:IF 5718917 THEN PRINT 


"FEHLERTSPACEF INISPACEIDATATZEILENISPACE 


FIISPACEY (29-36) "STOP 
7 S=0:FOR 1=48%79 TO 439005:READ A:5=5+A 
8 POKE 1,A:NEXT IzEF 5% >2888 THEN PRINT" 
FEHLERISPACEF INSPACEIDATA- ZEILENTSRAGE} 
{SPACE} (46-47) ":5TOR 
7 PRINT" {DOHNZIAKTIVIERENCSPALE}: CSPACEI 





POKE{SPAGEI1 ,SFXSPACEIBFAUSSCHALTEN: {SPA 


CE>FOKETSPALCE}1 „55"2NEW 

10 DATA149,0,133,254,162,1,189,137,3,133 
„255,160,0,177,254,145,254,136 

ii DATA20B,249,730,255,165,255,221,139,3 
„208,238,202,16,230,169,96, 141,49 

12 DATA1LSS,189,228,141,50,165, 169 ,53,133 
„1,169,141,133,254,162,3, 134,255 

'13 DATA160,0,177,254,240,7,32,202,241,20 
0,76,120,3,169,2,141,32,208 

14 DATA96,160,224,192,0,147,17,32,32,35, 
35,35,35,52,84,82,79,7B 


Aktivieren können Sie den Checksummer jederzeit {auch on cn " an 
nach RESET) mit POKE 1,53. - 
<116> 15 DATA73,67,45,86,69,82,76,65,71,32,67, 
<10> 72,69 ,67 ,75,83,85,77 <129> 
<14B> 16 DATA77,69,82,32,35,35, 35,39, 139,13,13 
<6B> »32,32,32,32,32,32,32 <147> | 
17 DATA32,32,372,32,32,66,69,872,83,73,79, 
78,32,67,32,49,.46,.4B <79> 
<32> 18 DATAIS,13,32,32,32,32,32,32,40,67,41, 
32,70,02,65,78,75,.32 “ar 
<21l> 19 DATA&6,82,55,75,76,32,30,49,48,46,56, 
 53,41,13,0 «125 
23 DATA159,0,141,107,171,141,.108,191,141 
<219> „109,191,160,2,24,177,95,200,113 «7% 
“335 30 DATA?S,131,109,191,180,3,200,177,95,2 
20,44,201,34,.208,10,173,107,191 x9i> 
31 DATA73,1,1941,107,191,177,95,174,107,1 
235 91,208,4,201,32,240,278,238,108 <128> 
32 DATA191,174,108,191,24,177,95,109,109 
„191,141,109,191,202,20B8,244,75,120 <244> 
X26> 33 DATAT28 ,56,76,1893,229,72,32,201,255,1 
70,104,144,1,138,96,32. 240,255 z101> 
<176> 34 DAT5142,105,191,140,106,191,162,0,160 
„0,24,32,240,255,169,91,32,12 <BF> 
<147> 35 DATA225,169,0,174,109,191,32,205,189, 
169,92,76,98,191,172,33,208, 145 12305 
<225> 36 DATA243,96,105,2,164,145,200,208,4,19 
7,161,708,247,76 SZO2> 
<140> 46 DATA32,12,225,32,68,171,32,68,171,172 
‚105,191,174,105,191,24,32,240 22135 
<15B>r 47 DATA2S5,75,128,164,;24,0,0,5,200 <65> 


Dieses Programm ermöglicht, eine Befehlserweiterung des Commodore 64 um insgesamt 
28 neue Befehle. C-64 Basic übersichtlich und anwenderfreundlich erweitert, damit das Pro- 


grammieren noch einfacher wird. 


Befehlserweiterung für den C-64 


Da der G-64 ein recht schwaches BASIC 
hat, entschloß sich der Autor eine Erweite- 
rung zu schreiben, die es ermöglicht, vor 


allem den sehr guten Tongenerator auf . 


einfache Weise anzusprechen. Weiterhin 
integriert dieses Programm noch einige 
Programmierhilfen zur Veränderung der 
Bild- und Schriftfarben usw. Insgesamt 
wurden 28 neue Befehle definiert, die alle 
fest als Token in das Betriebssystem ein- 
gebunden wurden. Das Maschinenpro- 
gramm ist genau 1533 Bytes lang und 
liegt zwischen 49152 und 50685. Die Er- 
weiterung funktioniert ohne weiteres mit 
anderen Maschinenprogrammen zusam- 
men, die nicht denselben Speicherbereich 
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gebrauchen oder, die die Zeiger für die Be- 
fehlsausführung verändern. Die einzelnen 
Routinen im Programm wurden sehr ein- 
fach gehalten und sind deshalb sehr 
schnell. 
Das Programm kann zu jeder Zeit mit Sys 
50500 gestartet werden. 
Nachdem man das Maschinenprogramm 
erfolgreich abgetippt und die Prüfsum- 
menroutine keine Fehler gefunden hat, 
fragt der Computer, ob das Programm ab- 
| gespeichert werden soll. Diese Frage kann 
| man entsprechend mit „J“oder „n* beant- 
worten. Danach fragt der Computer, ob 
das Programm gestartet werden soll. 
Nachdem die zweite Frage mit ja beant- 


Compute mit 


wortet wurde, sieht der Bildschirm wie 
folgt aus: 


BETTERBASIC V2.0 
38911 BASICBYTES FREE 
(C)1985 BY MARTIN DE 
HCOGH READY 


Erst dann stehen die neuen Befehle zur 
Verfügung. Ein im Speicher befindliches 
Programm wird bei der Initialisierung 
„normalerweise“ nicht verändert. Alle 
neuen Befenie sind fest in das Betriebssy- 
stern ihtegriert und ein RUNSTOP/RESTO- 
RE kann ihnen nichts anhaben. Aber nun 
zu den Befehlen im einzelnen: 
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programme 


RENEW: 
Ein Befehl, der jedem bekannt sein dürfte. 


Ein versehentlich mit NEW gelöschtes 


Programm wird wieder auf Vordermann 


| gebracht. 


PRINT AT: 

Mit diesem Befehl kann man Texte an be- 
liebiger Stelle auf den Bildschirm bringen. 
Wichtig ist, daß der Befehl vollständig 
ausgeschrieben wird. 

YOLUME: 

Volume setzt die Lautstärke für den Ton- 
generator. 

FWAVE: 

Mit diesem Befehl werden die Werte für 
Attack/decay und Sustain/release einge- 
stellt. Der dritte bestimmt die Wellenform 
für den ersten Tongenerator. 

SWAVE: 

Wie vorher, nur für den zweiten Tongene- 
rator. 
TWANE: 
Wie vorher, nur für den dritten Tongenera- 
tor. 
FPULSE: 
Stellt die Pulsweite für den ersten Tonge- 
nerator ein. 
SPULSE: 
Wie vorher, nur für den zweiten Tongene- 
rator. 
TPULSE: 
Wie vorher, nur für den dritten Tongenera- 
tor, 
SYSTEM: 
Dieser Befehl führt einen Kaltstart des 
Computers aus. 



























FPLAY: 
FPLAY setzt Low- und Highbytes der Ton- 
frequenz des ersten Tongenerators. Das- 
selbe gilt natürlich, wie man schon richtig 
vermutet, für die beiden Befehle SPLAY 
und TPLAY.- 

CL5: 0 

Mit CLS wird der Bildschirm gelöscht. Da- 
durch spart man sich den PRINT-Befehl. 
SCREEN: 

Es wird die Rand- und Hintergrundfarbe 
gesetzt. Die beiden Pokes werden dadurch 
überflüssig. 

INK: 

Verändert die Schriftfarbe. 

REPEAT: 

Hiermit wird die Dauerfunktion aller Ta- 
sten angeschaltet. 

UNREPEAT: 

Schaltet die Dauerfunktion der Tasten 
wieder aus. 
EXEGUTE: 
Dieses ist ein besonderer Befehl, mit ihm 
können Befehle an das BASIC-Programm 
übergeben werden. 
Achtung: Man sollte diesen Befehl nicht 
ohne Parameter gebrauchen, da der Com- 
puter dadurch aus dem Programm aus- 
steigen könnte. 

SRESET: 

Es wird ein Reset des SID’s ausgelöst. 
SPEED: 

Mit diesem Befehl wird die Geschwindig- 
keit des Interrupts festgelegt. 
SUSR: 

Setzt Low- und Highbyte für die USR- 
Funktion. 

















RES: 


Auch dieser Befehl ist für die Tonprogram- 
mierung da. Es werden die verschiedenen 
Filter angeschaltet und es wird die Reso- 
nanz festgelegt. 

KEYBEEP: 

Beim Programmieren ist es immer sehr 
nützlich, wenn man nicht immer auf den 
Bildschirm schauen muß, um zu erkennen 
ob ein Tastendruck registriert wurde oder 


nicht. Dieser Befehl sorgt für ein akusti- 


sches Signal, wenn eine Taste gedrückt 
wurde. 

BEEPOFF: 

Dieser Befehl macht den Befehl KEYBEEP 
wieder rückgängig. 

NORM: 

Fallseinem die Befehlserweiterung auf die 
Nerven gehen sollte, braucht er nur den 
Befehl NORM einzugeben, und die Erwei- 
terung wird ausgeschaltet. 

MULTICDL: 

Dieser Befehl dient dazu, den Mehrfarben- 
modus des C-64 anzuschalten. Der erste 
Wert setzt die Farbe für die Hintergrund- 
farbe ?. Die mehrfarbigen Zeichen er- 
reicht man über die SHIFT-Taste. Grafik- 
zeichen können in diesem Modus leider 
nicht mehr dargestellt werden. 
Der zweite Wert bestimmt die Farbe der 
Zeichen im Reversmodus. Diese Farbe ist 
dann gleichzeitig die Cursorfarbe. Die 
Schriftfarbe wird weiterhin mitINK festge- 
legt. 

MULTIOFF: 

Mit diesem Befehl wird der Mehrfarben- 
modus wieder ausgeschaltet. 


























160 REM eamiiH PEHETECETINEE ER EEE 2 0 2 2.2 2 2.0 SER 240 PRINT"MOMENTANE{SPACEFADRESSE" I 221 
105 REM * - ® <202}% 250 NEXT: PRINT" {GLEAR}" <238> 
i10 REM * BETTERBASIE V2.0 * <E2> Z&0 IFNZ >MTHENFRINT" LDOHNSIDULSPACE>HAST 
115 REM # £212> RATNULLENTSPACEN IMISPACEIPROGRAMM" 3 PRINT 
420 REM #t{C) 1985 BY MARTIN DE HODSH# FEurE "RICHTIG{SPACEIWAERE"M <164> 
125 REM * #* ARaz> 270 IFN>MTHENPRINT "DULSPACEFHAST"N-M"NUL 
130 REM *BERGERW. 14 6570 KIRN/NAHE® 1r1> LEN{SPACEF ZUVIEL" <211> 
is0 REM * * LOST 5 275 LFN<MTHENPRINT"DU{SPACEFHAST"FI-N"NUL 
150 REM * TEL. 06732-272744 * <PS54r LENTSPALEI ZUWENIG" <1ESH 
150 REH * =# <i> 280 IFP< SOTHENPRINT" IDOHNZILEIDERTSPACE 
170 REM HH HF £109> IST{SPACEIDIETSPACEIPRUEFSUNMETSPACEIFAL 
180 + . <238> SCH" <535> 
i90 M=128:0=-175741 23T >. 285 LEP<>OTHENPRINT"DUTSPAGEIHAST"P" RIE 
200 PRINT" ELEARF" : FORT=4# 1521050684 65: HTIE{TSPACE>IEST"D - <154> 
210 READA:FOKEI,„AF TFA=OTHENN=N+I <i> 30 IFF<DTHENPRINT"SIE{SPACEF ISTISPACEIU 
215 I=PEEK (63) +256#PEEK (64): PP 21245 MO-FTZUISPACEIKLEIN" x141> 
220 FRINT"{HOHEFZEILE" I" {SPACET3BGELESENE 395 IFPF>OTHENPRINT AGSIEISPACEHIST £{SPACEIU . 
RISPACEIWERTISRPACEI" A «93> M#P-0" ZU{SPACEHGROSS" <148> 
230 PRINT"ANZ. NULLEN{SPACEY "N" TSPAGESIFR 396 IFM< >NORP< >OTHENEND <121> 
LEFS."P <172> 400 TEP-DANDN=MTHENPRINT"ALLESTSPACEF INT 

- SPACEFORDNUNGBTSPAGEF TI!" 210907 





20 
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410 IFN=MANDP=DTHENPRINT" CDOHNTABSPEICHE 


RNISPACEIIFN" :GOTO420 
420 GETAS$: IFAF=""THENS20 : 
450 IFA$="JV THENINPUT "NAME" 4 Bf: SAVEBF 


440 PRINT"PROGRAMM{SPACEFSTARTENISPACE2Y 


J/N" 
450 
440 
470 
2700 
910 
920 
9350 
40 
BO 
785 
7370 
991 
395 


| 

“Q 

[3 
de dr dr 


aum 
mmm 
332 


REM 


DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





BETAF: IFA$="" THENASO 
IFAS="J" THENSYSSOSOC 
END 


RSS IHIHIHHIOHHIIHE IH 
WERRREMASCHINENPROBRAMMERHR 
*# STARTEN MIT SYS 50500 vr 
EIN III RER 


079,195,141,195,121,192,%25 
2572,164,195,171,195,196,195 
221,195,246,195,006,196,022 
196,067 ,229,038,194,054,196 
061,196,067,196,073,196,122 
196,219,196,226,196,012,197 
028,197,160,197,176,197,192 
197,208, 197,221,197,242,197 
192,183,182,163,182,163,182 
1&3,182,163,182,163,1B2,163 
192,163,182,163,182, 163,182 
163,182,163,182,163,182,16% 
192,163,182,163,192,163,182 


DATA_163,182,163,182,163,182,163 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 


" DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DArA 
DATA 


"DATA 


DATA 
DATA 
bAaTa 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
PATRA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


182,163,182,143, 252, 172,178 
192,187,192,120,162,005,187 
102,192,157,004,003, 202,016 
247 ,0B8,096,120,032,093,228 
OB8,096,015,050,201,255,240 
046,038,015,048, 042, 201,204 
048 ,042,056,233,203,170,132 
073,160,255,234,202,240,010 
234,200, 185,7205,193,016,250 
048,244,234,200,185,208,193 
048,006,032,071,171 „208,245 
2546 ,076,239,165,234,076,243 
166,234 ,076, 036,167 ,032,115 
000,032,196,192,076,174,167 
240,012,233,128,144,012,201 
035,176,012,076,247,167,234 
076,043,168,234,076, 165,169 
234 ‚201 ,075,049,006,208,008 
076,018, 158,234 ,078,008,175 
234,201,127,240,748,056,233 
075,010,158,185,001,192,072 
195,000, 192,072,076,115,000 
166,122,160,004,132,015,189 
000 ,002,016,007 ,201,255,240 
065,232,208,244,201,032,240 
058, 133,008, 201 ,034,240,089 
036,015,112,048, 201,043, 208 
004,159,153,208, 040,201 ,048 
144,004 ,201,060,144,032,07& 
150,195,132,113,160,000,132 
011,136,134,122, 202,200 ,232 
189,000,002,056,249,158,160 
240,245,701,128,208,048,005 
011,164,113,232,200,155,251 
001,185,251 ,001, 240,054, ,05& 
233,058,240,004,201 ‚073,208 
002,133,015,056,233,085, 208 
155, 133,008, 189,000,002,240 
223,197,008,240,219,200,153 
251 ,001,252,208,240, 166,122 
230,041 ,200,185,157,160,016 
250,185,158,1680,209,190,189 
000 ,002,016,190, 153,253,001 
198,123,159,255,133,122,09& 


1586 
“2273 1590 
z50> 1500 
<13B> 1610 

1520 
9973 1630 
<119> 1820 
<214> 14,530 
x877 1550 
<193> 1870 
<203> 1560 
<213> 1690 
<223> 1700 
<134> 170 
<239> 
<213> 1750 
<145> 2790 
<32> 1750 
<33> 1780 
x34> 1770 
<26> 1780 
<202> 1770 
2775 1800 
<172> ao 
<243> 
<B5> 1830 
cas 1840 
c159> 1850 
<167> 1870 
<163> 1800 
<1B7> 180 
<1B3> 1906 
2207 > 
<203> 1910 
239% 1720 
<235> 1930 
<38> 1940 
<199> n 1950 
X223> 1760 
<128> 1770 
“201> 1750 
2293 1990 
297» 2000 
<229> 2010 
2184> 2020 
<170> 2030 
<208> 2040 
x40> ZOF0 
<129> 2060 
<195> 2070 
X135> 2050 
«232> =090 
«i1> zı00 
CAE> 2110 
<32> 2120 
2323 2130 
<34> 2140 
236> 2160 
2013 2176 
<2235 2180 
“2475 2190 
<220> 2200 
<203> z210 
<222> 2220 
<228> 2230 
£92> 2240 
<147> 2250 
27 > 2806 
<246> 2280 
<152> 2270 
<B7> Z300 
<5B> 2310 
<123> 2320 
2333 2330 
<209> 2340 
<i161> 2350 

2340 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DAIA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Compubs mik 


programme, 


132,113,160,000,132,011,136 
134,172,202,200,232,189,000 
002,056,249,205,193,240,245 
201,128,208,008,005,011,024 
105,076,076,074,193, 166,122 
230,011,200,185,204,193,016 
250,185,205,195,208,220,164 
113,166,122,076,047,193,082 
069 ,078,069,215,080,082,073 
078,084 „032,085,212,078,07% 
682,205,083,089 ,083,084,06% 
205,0B6,079,,076 085,077 ,197 
070,087 ,065,086,197,093,087 


045 ,086,197 ,084,087 ,055,08& 
197,070 ,080,076,065,217,083 
080,076 ,065, 217,084 ,0B0,07& 
065,217,067,076,211,083,067 
082,069 ,069, 206 ,073,078,203 
082,067 ,0B0,069,065,212,085 
078,082 ,069,090,069,065,212 
069 „CBB,059 ,067,085,094,197 
075,059 „089, 065,059 ,069,, 208 
083,080 ,069,059,196, 083,082 
069,083,069,212,083,085,083 
210,082,6049,211,070,080,0B5 
078,083,197,083,080 ,085,076 
083, 197,084 ,0B0,0B5,076,08& 
197 ‚066 „069,069 ,080 ,079,070 
199,077 ,095, 076,084 ,073,067 
079 „204,077 ,085,076,084,073 
079,070 ,,198, 000 , 000 , 090 , 000 
000,000, 000, 000,000 ,000,000 
000,000 ,000 , 000,000 , 000,000 
000,000 ,000,000,000 , 000,000 
014,255,111,111,114,118,119 
200,000 ,000 , 000,000, 000,000 
001 ,002,003,004,000, 000,255 
=55,141,167,133,141,000,049 
119,230,220,245,121,000,000 
000,000, 000, 000,000, 000,203 
098,096 ,096,070,031,105,133 


017,004,009,121,234,070, 14 


151 ,000,000,000,000,000,000 
000,000 ,000 , 000, 000,009, 000 
159,133,141,000,090,013,079 
050,095 ,000,000,000 , 000,000 
000,000 „009 „000 „000,000, 000 
000 „000 , 000 „000 „ 000,000,000 
121,133,114,155,150,169,017 
076,065, 065,057 ,058, 049,070 
071,077,111,254, 294, 254,254 
230,023,075,032,012,080,074 
000 , 000,000 ,000,000,000,00Q 
000,000,000 ,000,000,009,000 
130,124,177,1968,133,164, 155 
112,201 ,224 ,226,218,229,149 
245,065,129,251,145,217,000 
145,135,169,181,132,115,117 
087,094 ,027 ,055,231,222,222 
000 ,242,141,232,000,001,008 
040,032,019,212,201,133,169 
014,016 056,000 , 000 , 000,000 
044,064 ,051,089,045,011,010 
000,165,043,164,044,155,034 
132,035,160,003,200,177,034 
208,251,200,152,024,101,034 
150,000 ,135,043,165,035,105 
000,200,145,043,1356,162,003 
230,034 ,208 ,002,230,035,177 
034 ,208,244, 202,208, 243,185 
034,105,002,133,045,165,035 
105,000,133,046,075,099,165& 
032,158,193,138,072,032,283 
174,032,158,183,104,168,024 
052,240,255,032,253,174,076 
164,170,032,158,193,142,024 
212,096,032,158,183,142,005 
212,032,253,174,032,158,183 
142,006,212,032,253,174,032 


<118> 
<249> 
<113> 
<220> 
<203> 
2175 
<B1> 
<19> 
<238> 
«128> 
<3> 
<195> 
<117> 


<10B} 
<65> 

<106> 
<94> 

<77> 

<114> 
£<77 > 

<16> 

x176> 
<B3> 

<21i> 
<7> 

«75> 
<60> 

“475 
2134> 
<B4> 
2161> 
<ild> 
<126> 
«1365 
A22l> 
<180> 
<101> 
<254> 
<56> 

x76> 

<ä8> 

x175> 
2473 
2365 
<102> 
<127> 
<i0> 

xZ1> 
x25> 
<35> 
<i22> 
<168> 
<71> 

<g1> 
<2383> 
«55 

<197> 
<45> 
<199> 
<104> 
<29> 
<108> 
<92> 
<> 

<Z20O7> 
<22> 
<16> 
<174> 
«114> 
“222> 
<10A> 
x14> 
<251> 
«373 
<108> 
201 > 
<220> 
<140> 
<117> 


2 


programme 





2370 DATA 


2780 


158,183,1472,004,212,096,032 <178> DATA 182,142,101,220,095 ,1589,000 <S52> 
2380 DATA 158,183,142,012,212,032,253 <7i> 2790 DATA 1431,024,212,141,004,212,141 <49> 
2390 DATA 174,0532,158,1853,142,013,212 <121> 2800 DATA 005,212,141,0068,212,141,011 <254> 
2400 DATA 032,253,174,032,158,183,142 <133> 2810 DATA 212,141,612,212,141,013,212 «14> 
2410 DATA 011,212,0946,032,158,183,142 <133> 2820 DATA 141,018,212,141,019,212,141 <224> 
2420 DATA 019,212,032,253,174,032,158 <127> 2830 DATA 020,212,141,023,212,141 ,027 <192> 
2430 DATA 183,142,020,212,032,253,174 <218> 2840 DATA 212,141 ,028,212,096,032,158 X65> 
2440 DATA 032,158,183,142,018,212,096 <199> 2850 DATA 183,142,017,003,032,253,174 <174> 
2450 DATA 032,158,183,142,000,212,032 <12> 28&0 DATA 032,158,193,142,018,003,09& <a&> 
2450 DATA 253,174,032,158,183,142,001 <220> 2870 DATA 032,158,193,142,023,212,09& <38> 
2470 DATA, 212,098,032,158,193,142,007 <150> 288C DATA 004,021,003,011,032,045,032 <125> 
2480 DATA 212,032,253,174,032,15B,183 <14> 2890 DATA 002,001,019,009,003,013,040 21263 
2490 DATA 142,008,212,09&,032,1598,183 <50> 2900: BATA 003,041,032,002,025,032,004 <98> 
2500 DATA 142,014,212,032,253,174,032 <2A8> 2710 DATA 0721,003,011,045,019,015,004 <55> 
2#10 DATA 158,183,142,015,212,096,032 <PE> 2920 DATA 020,032,032,032,162,000,187 x201> 
2520 DATA 158,193,142,032,208, 032,253 <B6> 2730 DATA 089,197,032,210,255,169,001 A32> 
2530 DATA 174,032,158,183,142,033,208 <1972> | 2940 DATA 157,000,216,232,224,070,20B ARDZr 
2540 DATA 076,052,158,183,142,134,002 <a0> 2950 DATA 240,076,108,192,147,005,06& x2l6* 
25506 DATA 094,159,128,141,138,002,075 <6F> 29580 DATA 069,004,094,069 ,082,066 ,065 1745 
2560 DATA 169,000,141,138,002,096,167 £<137> 2970 DATA 083,073,067,032,086,050,046 <ı151> 
2570 DATA 254,133,057,133,058,234,234 <48> 2980 DATA 048,032,032,032,051 , 058,957 <B2> 
2580 DATA 7354,032,158,173,032,130, 183 <1B1> 2990 DATA 049,049 ,032, 066 ,065,083,073 -x50> 
2590 DATA 170, 150,000, 177,034,153,000 <1897> 3000 DATA 067 ,066,087,054 ,057,083,032 1273 
2&00 DATA 002 ,200,202,208,247,169,000 «1A1> 3019 DATA 070,082,089,05%,013,040,067 “22ER 
2610 DATA 153,000,002,169,000,133,122 <159> 3020 DATA 041,049 ,057,058,053,032,066 sza0> 
2620 DATA 169,002,133,1235,008,104,104 x228> 3030 DATA 099,032,077,065,082,084.,073 x1297 
2630 DBTA 104,104,104,075,150,164,120 <B7 > 3040 DATA 078,032, 068,067 ,032,072,077 <ı19#r 
2640 DATA 162,135,160,1968,142,020,003 <21> 3050 DATA 077,071,072,013,000,000,052 x159> 
2450 DATA 140,021,00%,088,096,165,203 <114> 3060 DATA 158,183,142,002,212,032,2553 “2263 
2660 DATA. 201 ,064,208,008,169,2053,141 x13> 3070 DATA 174,052,139,183,142,003,212 <12> 
2670 DATA 219,196,076,049,234,155,203 <209F% F080 DATA 095,032,158,183,142,009,212 <179> 
2580 DATA 205,719,196,208,003,076,047 <3B> 3090 DATA 032,253,174,032,158,193,132 <B> 
2690 DATA 234,159,015,141,024,212,169 <110> 3100 DATA 010,212,076,052,158,185,14= «547 
2700 DATA 003,141,005,217,169,242,141 <240> 3110 DATA 016;212,052,253,174,032,158 x40> 
Z710 DATA 004,212,159,026,141,001,212 <AS> 3120 DATA 187,142,017,212,095,120,159 =104> 
2720 DATA 167,005,141,000,212,169,033 <211> 3130 DATA 049,141,070,003,169,234,141 <156> 
2730 DATA 141 ,004,212,160,059,162,200 <18&> #140 DATA 021,003,085,076,032,158,183 <125 
2740 DATA 202,208,253,136,208,249,169° <23F> 3150 DATA 142,034 ,208 ,032,2553,174,032 x208> 
2750 DATA 000,141,004,212,141,005,212 L23E> 3160 DATA 158,183,142,035,208, 167,091 <12> 
2760 DATA 141,0068,212,165,203,141,217 267% 3170 DATA 141,017,208,096,159,027,141 <P1E> 
2770 DAFA 196,078,049,.234.203,032,158 2445 i S180 DATA 017,208,098,000 ,000 , 000,000 2155> 





22 


Das Programm erzeugt eine „zuckfreie”, 
softscrollende Laufschrift und läuft in al- 
len möglichen Zeichensätzen. Esistnatür- 
lich nicht auf Buchstaben beschränkt, d.h. 
auch Grafikzeichen können verwendet 
werden. 
Außerdem läuft das Programm im Inter- 
rupt, bedeutet, nach Aufruf kann im Ba- 
sic-Programm weitergemacht werden 
(z.B. Datas einlesen)!! 


Die Zeichen werden ab der Speicherstelle 


24576 ($6000) in ihren Bildschirmcodes 
{Handbuch Seite 133) abgerufen und auf 
den Bildschirm gebracht. Man muß also 
seinen Text ab der Speicherstelle 24576 
hintereinander einpoken. 

Man kann dies z.B. mit dem Mini-Text- 
Editor tun. Mit diesem Programm schreibt 
man einfach den Text auf den Bildschirm 


und drückt „Fi“. Den Rest erledigt das 
Programm, Der Mini-Text-Editor ist natür- 
lich nicht vollkommen, aber hier kann ja 
jeder seine eigene Lösung finden. 

Nun muß die Laufschrift auch, wenn der 
Text zu Ende ist, wieder von vorne begin- 
nen. Dies geschieht folgendermaßen: Fin- 
det das Programm ab der Speicherstelle 
24576 den Code 127 (Commodore+B), 
schreibt es ein Leerzeichen und beginnt 
den Text von vorne. Bevor man also beim 
Mini-Text-Editor „Fi“ drückt sollte man 
den Text mit Commodore+B abschließen! 
Auf Drücken von „Fi* stoppt die Lauf- 
schrift. 


Achtung!!! Nach Starten der Laufschrift 


wird der Bildschirm ein wenig verkleinert, 
um Buchstaben an den Rändern herein- 


Sompute mik 


kommen und verschwinden zu lassen. 
Daher empfiehlt sich ein einfarbiger Bild- 
schirm, da der Effekt hier nicht sichtbar 
ist, 


Nun aber zum Wichtigsten: Gestartet wird 
das Prg. mit SYS 28672 ($7000), und die 
Laufschrift hat immer die selbe Farbe, wie 
die aktuelle Zeichenfarbe. Hatman nun ei- 
nen Text geschrieben, kann man mit PO- 
KE45 ,240:POKE45,112:CLR den Text und 
das Maschinenprogramm und sogar ei- 
nen wohlmöglich vorhandenen neuen 
Zeichensatz abspeichern. Man spart sich 
nach dem Laden des Programmes das 
Einlesen der Datas da alle Speicherstellen 
bis 28912 abgespeichert wurden. Wun- 
dern sie sich deshalb auch nicht über die 
längere Lade-, Speicherzeit! 


Ei: 


tips & tricks 


11 DATAL55,251,201,1,209,2,250,252,170,2 


Listing Text-Scroller: 





02,138,41,7,132,251,141 ,22,208,96 <126> 
12 FORT=010224: READD: PORE7440944T „D: A=A+ 
© DATA149,7,141,22,208,169,0,133,251,133 D: NEXT n i er 
252,169,0,162,96, 133,253, 134,254 2803 13 IFA<>SOLISTHENPRINT"DATALSRACEIERROR" <142> 
1 DATA141,234,3,173,134,2,162,0,157,192, 2 END Pe 
219,232,224,39,208,248,120,159 <237> F 
2 DATAG2,160,112,141,20,3,140,21,3,169,2 1& 2 TEXT-SCRÜLLER {6) BY LOTUS PRODUG, 
42,141,18,208,173,17,208441,127 <40> TIONS “2263 
3 DATA141,17,208,169,129,141,26,208,88,9 17 = EDZARD WITTIG / VERDEN “1393 
6,173,25,208,141,25,208,48,7,173 szı> 18° “762 
4 DATA13,220,88,76,49,234,165,203, 201,4, 17 = *777 
240,18,173,18,209,201,250,176,3& <62> 
5 DATA32,2027,112,169,250,141,18,208, 76,1 
29,234,120,173,17,208,41,127,141 <223> u . 
6 DATA17,208,169,240,141,26,208,169,49,1 2 
62,234,141,20,3,142,21,5,88,165 <6B> Listing Text-Editor 
7 DATA252,208,3,76,189,112,162,0,189,193 
„7,157,192,7,232,224,38,208,245 <251> 10 REM sweet MINI-TEKXT-EDITOR ZUM TE 
6 DATA1L72,254,3,177,253,201,127,240,14,1 XT-SCROLLER Kernen <191> 
41,230,7,200,140,234,3,208,21,230 <217> 20 GETA$: IFAS=" SPACE} "THENAO <B4> 
9 DATA254 ,76,199,112,169,0,152,96,133,25 30 PRINTAS+ : GOTO2O <199> 
3,141,234,3,134,254,169,32,141 <i> 40 FORT=0TÜ99LFOKESRAOIE+T,FEEK(1024+T} <33> 
10 DATA230,7,169,241,141,18,208,1569,7,14 50 IFPEEK (1024+T)=127THENEND <A2> 
1,22,208,74,129,234,169,0,133, 252 <171>  &U NEXT &190> 


für den Commodore 6a 





„SPRITE RUN“ 


Viele BASIG-Programme werden durch 
die Joystickabfrage und die Spritesteue- 
rung sehr langsam. Um da Abhilfe zu 
schaffen, hat der Autor eine kleine Ma- 
- schinenhilfsroutine geschrieben, die per 
Interrupt läuft und somit keinen Ge- 
schwindigkeitsverlust bei Ihrem Pro- 
gramm zur Folge hat. 

Das Programm belegt den Speicherplatz 
über 49152 (c000)}, verbraucht also kei- 
nen BASICspeicher. 

Vor dem Starten legen Sie im Block +13 
(832-896) die Daten für den zu bewegen- 
den Sprite ab. Anschließend poken Sie, 
welche Sprites zu erscheinen haben (also 
: hier POKE 53248+21,4). 

. Danach können Sie noch die Position des 
: Sprites bestimmen. 

- sonst ist die Position x=0 Y=0. 

Nun können Sie Sprite Run miteiner FOR.. 
NEXT Schleife einpoken lassen und es mit 
SYS 49152 aufrufen. 

I Ihr BASIG-Programm läuft gleich nach 
I dem SYS-Aufruf weiter, nur das jetzt der 
gewünschte Sprite über den ganzen Bild- 
schirm bewegt werden kann (also von x= 
0 bis x=320). 


3/86 


Sie können den Sprite in 8 verschiedene 
Richtungen steuern. Verschwindet der 
Sprite am rechten Rand, taucht er am lin- 
ken wieder auf. 

Ausschalten !äßt sich das Ganze, indem 


FOR T=49152 T0 49378 


:READ O 
:POKE T,Q 
NEXT 

END 


DATA120,159, 23,140,192,141, 


Sie einfach Sprite Nr. 4 ausschalten, also 
POKE 53248+21,0. Der Autor versuchte 
das Programm so aligemein wie möglich 


zu halten, so daß es in jedem BASIG-Pro- 


gramm eingesetzt werden kann. 


20, 3,14 


21, 3, 88,169, 13,141 „250, 7. 
DATA169, 0,141,236,194, 76,173, 0,220 


„201,119,240, 31,201,123,290, 


36 


80 DATA201,125,240, 47,.201,124,240, 37,2 
01,118,240, 45,201,117,240, 53,201 

90 DATR121,240, 61,201,122,240, 69, 7&, 
49,234, 32,139,192,258, 4,208, 76 

100 DATA 49,234, 32,139,172,206, 4,208, 


76, 49,2534,206, 5,208, 76, 


49,254 


110 DATARIH, 5,208, 76, 49,254, 32,139,1 


972,238, 


4,208,206, 5.208, 


76, 49 


126 DATA234, 32,139,192,238, 4,208,738, 


5,208, 


76, 49,234, 32,139,192,206 


130 DATA 4,208,238, 5,208, 76, 49,234, 3 
2,139,192,206, 4,208,20&, 3,708 


140 DATA 76, 47,234.172,236,194,201, 
4,208,240, 59,201,255 
96,16%, 4,141, 
4.208, 96 
0,240, 5,201, 90 


40, 24,173, 
150 DATA2AU, 
9, 


1, 
1,141 ,256,194,238, 


180 DATALYZ, 4,208,201, 

0,141, 

76,194,169, "2s5)141, 4,208, 
16,208,141,236,194 

4,208, 965169, 4,141 

1,141,226,194,169 

4,208, 96,255 


‚240, 15, 98, „169, 
170 DATAI4L, 

96,169, ü, 121, 
180 DATA169, 0,141, 
‚ 16,208,18%, 
170 DATA 89,141, 


Compute mi 


1,2 


65, 208,16 


15,208 





23 




















Fürviele erscheint die Nutzung der Funktionstasten am C-64 rätselhafl. Miteinem einfachen Programm 
kann man diese vier Tasten achtmal, mit ein paar Tricks kann man sie sogar 32 mal belegen. 
Nach dem Motto „in der Kürze liegt die Würze“ wurden Beispielprogramme gestaltet und Tips und 
' Tricks vorgeführt. Fehlende Befehlsätze in Basic 2 sind selbst entwickelt, die dazu notwendige Bool- 

sche Algebra eingehend behandelt. 


Steuerungstätigkeit aus. In Hochkomma- 
Modus geben sie aber auf dem Bildschirm 
inverse Zeichen wieder. Im Handbuch gibt 
es auch nur den Hinweis : diese Tasten 
können im Rahmen eines Programms be- 


Jeder hat wohl am Anfang mit den rätsel- 
haften Funktionstasten kritische Ausein- 
andersetzungen gehabt. Beim Betätigen 
erzeugen sie weder einen Abdruck auf 
dem Bildschirm noch lösen sie irgendeine 


Tatelle-i 


geshitftet 
ungeshiftet 


Tasten RSCII Zeichen nSCIIi Zeichen 
FirF2 135 Ei 137 1! 
F3-F4 124 Ei 138 “M 
FS-FE 125 11 133 F. 
F’-F3 128 zi 142 a 


Bitte beachten Sie, daß die Belegung des Speicherplatzes 203 (Tastencodenummer) 
nicht ganz im Einklang mit der Reihenordnung der Tastaturbenennung steht. 

Einfachste Methode der Funktionstastenbelegung ist, eine bedingte Verzweigung des 
Programmablaufes programmatisch aufzufassen. Ein Beispiel: Mit GetA$ wird die Ta- 
statureingabe geholt und mit dem If. Then-Befehl das Programm an die gewünschte 
Zeile abgezweigt, in der Ihr Teilprogramm beginnt. Unser Beispiel: 








in getattif aF="" then 109 
zen if a#="’2" then 119 
2@B if s$="'4’ then 128 
an if ag="H" then 139 
Sa if s$="2f then 199 
gsZ if a$="t then 150 
7a if a$="M" then 168 
3a if as=’$' then 178 
ag if af="M then 190 


iga gota 14 


11A-print"funktionstaste ":g0oto 10 
120 print”"funktionstaste #"'geto 18 
130 print"funktionstaste 5S"!gato 19 
140 print"funrktionstaste "zgoto 180 
15@ print"funktionstaste P"rigote 1@ 
iS8 print"funktionstaste 4"igoto iM 
17a print"funktionstaste "zgato | 









print"’funktionstaste B”’tgoto 


Sompube mib 


eder zusammen mit 
Commodore-Taste 


legt werden. 

In der foigenden kurzen tabellarischen 
Darstellung sind die wichtigsten Merkma- 
ie der Funktionstasten dargelegt: 


Belegung der 
Speicherplatz 
283 


WR 


Eigentlich wäre das Alles, was man zur 
Belegung einer Taste braucht. 

Wir gestalten das Programm mit einem 
Trick viet eleganter. Dazu einige Tips zur 
Stringverwaltung. 


Als erstes erzeugen wir einen INSTRING- 
Ersatz Befehl, der im Commodore Basic 2 
tehlt. 

Der Programmablauf ist, daß ein Teilstring 
in einem Mutterstring gesucht wird. 

Ist es gefunden, wird der Stellenwert des 
Teilstringes wiedergegeben. 


In unserem Fall ist A$ der Teilstring, der 
mit Tastendruck erzeugt wurde. Mutter- 
string wäre, wenn wir ihn IN$ nennen, 


SEELBEINN. 


Unser Programm nimmt dann die folgen- 
de Form an. 


18 
28 


getat:ro 
3A 
4g 
A 
188 : 


In Zeile 20 ist eine bedingte Verzweigung 
mit dem If..Then-Befehl gestaltet. In der 
For..Next-Schleife wird A$ in IN$ gesucht, 
' wobei X bis zu einer Größe von der String- 
länge von IN$ steigt. Wird A$ in IN$ gefun- 
: den, wird das Programm an Zeile 40 abge- 
- zweigt. Wenn es nicht in IN$ vorhanden 


nextigato 209 
on x* goto 119,129, 138,140, 150,168,170,18B8:gataof 


ist, wird es die Schleife verlassen und mit 
Goto-Befehl an den Anfang der Zeile 20 
geleitet. 





handen ist. Einen anderen Befehl: !f..- 
Then.. 
Else kann man hier gut gebrauchen. Lei- 


Der if. Then-Verzweigungsbefehl erzeugt | der gibt es diesen auch nicht im Commo- 


eine Wand, die nur dann durchlässig wird, 
wenn die gestellte Bedingung erfüllt ist. In 
unserem Falle ist es, daß A$ in IN$ vor- 


eA getattforx=1Itolent in$)> ron -ia#F=mid$ 


a 4@rmextigoto za 


dore Befehlsatz. Wir gestalten ihn mit 
Boolscher Algebra. Danach brauchen wir 
die Zeile 30 nicht mehr. 


in#,x ,1?>got 





Die Booische Algebra stützt sich auf Bool- 
scher Aussage. Sie ist sehr aufrichtig und 
gibtnach einer Anfrage, ob die Bedingung 
erfüllt ist oder nicht, eine eindeutige „ja“ 
oder „nein“ Antwort. Es gibt kein „jein“. 
Zahlenmäßig erfaßt heißt das, ja=1 und 
nein=0. Da aber die Antwort sehr aufrich- 
. tig ist, werden alle 8 Bits der Antworibyte 
mit „1° oder „O“ besetzt. Für den Mikro- 
prozessor bedeutet eine „1“ im 7. Bit (Bits 
| werden 0 bis 7 genannt) eine negative 
Zahl. Also eine aufrichtige Antwort wird 
negativ bewertet. Die Boolsche Aussage 
kann deshalb entweder 0 oder -1 sein. 

Gestützt auf diese Form der Aussage (0 
oder -1) kann man alle bedingten Verzwei- 
gungen umformen. Man formuliert den 


| Die ersten vier haben die Beziehung: 
Fn = I+2xx-]) 


gesamten Vorgang in Form einer Glei- 
chung (bzw. Ungleichung) und bekommt 
eine eindeutige Boolsche Antwort für ei- 
nen gegebenen Wert von Variablen in der 
Gleichung. Mit einer For..Next-Schleife 
kann man den Wert steigend (bzw. fal- 
lend) ändern. Bis zu einem bestimmten 
Wert, mit dem die Gleichung stimmt, be- 
kommt man nur DO als Antwort, Danach 
kann man mit On..Goto-Befehl sehr gut 
operieren. Dieser reagiert nicht auf 0 und 
bildet auch keine Wand, sondern springt 
einfach zum nächsten Befehl hinter dem 
Doppelpunkt. 

Daß die Boolsche Algebra nicht nur für die 
Verzweigung verwendbar ist, wird im 
Laufe dieses Artikels mit mehreren Bei- 


und die letzten vier die Beziehung: 
Fn = Zx[X-4). 


Im int "ee 
PR getaFtforx=ItolenlinF)ton ni ahemidE in$,x , kiY’act 
o finextigoto 20 


sa: 


spielen deutlich gemacht. Bildung eines 
absoluten Wertes oder Sonstiges wird an 
Hand der Beispielprogramme so deutlich, 
daß weitere Aufklärung dafür unnötig ist. 
Viele Wiederholungen in den Zeilen von 
110 bis 180 kann man folgendermaßen 
vermeiden und damit das Programm 
sichtbar straffen. 

Es besteht zwischen dem Wert von X und 
dem von den Funktionstasten ein Zusam- 
menhang: 


#H ıl2 2 4 
6 7’ 8 
Fn 13 5 
2 4 


Wir gestalten das Programm folgender- 
maßen um: 


3a print"funktionstaste"Fion-ix«59gota SAtprintort 


x-4}1g90toa 2A 
sg printir@öxix-i>rigoto Zu 





- Damit haben wir ein Programm entwik- | Die Fortsetzung dieser Serie finden Sie in der nächsten Ausgabe 
| kelt, das genau soviel leistet wie vorher. | von „Gompute mit“. 
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25 


a EI 


398 dd ++++ 


44 


op senrel dt 


.. hier setzt nun der Spieler ein. Zunächst 
gilt es, das Schiff von ANTARES III zu star- 
ten. 

ANTARES ist ein unwirklicher Planet ohne 
Atmosphäre, aber sehr hoher Dichte, was 


I zur Folge hat, daß unzählige Meteore den 


Start eines Raumschiffes erschweren 
(deshalb auch kaum von den Außerirdi- 
schen beachtet!). 

Um nun die nötige Energie aufzubringen, 
die gewaltige Anziehungskraft des Him- 
melskörpers zu überwinden, ‘muß 
„STARSHIP" 15 Meilen beschleunigen, 
ehe der AUTOPILOT einsetzen kann. Eine 
Kollision mit einem Meteor beschädigt 
den Kreuzer dank seines Schutzschirmes 
nicht, bremst die Fahrt aber erheblich ab. 
Nun müssen erneut die 15 Meilen „An- 


| lauf“ genommen werden. 


(Anzeige der zurückgelegten Strecke ist 
der Balken oben links am Bildschirm). Ein 
AUSWEICHEN erfolgt durch Steuerung 
mittels Joystick nach links oder rechts. Ist 
das Schiff endlich aufgestiegen, beginnt 


. DAS EIGENTLICHE SPIEL, und die Szene 


26 


top secret ++++ 


‚.. Oberster Rat Terra: Sternzeit 2985... 


Einer geheimen Information nach formieren sich jenseits unserer Galaxis, Im fernen ANDROMEDA - 

Nebel, ausserirdische Verbaende zur Invasion gegen unser Sonnensystem! 

Ein RAUMKREUZER der Gewichtsklasse C wird zur Zeit fuer einen SPEZIALEINSATZ ausgeruesiet. 

BESONDERHEITEN: Wirkungsvolle Bewaffnung 
Rundum wirkender Schutzschirm 
Weitreichendes Ortungssystem 
Ueherlicht in 3 sec 

START: SOFORT von ANTARES ill 


> 10B secret +4+t: 


wechselt in den KOMMANDOSTAND von 
STARSHIP 

Trotz Vollautomatisierung müssen wichti- 
ge Funktionen vom Piloten eingeleitet 
werden. Da wäre zunächst einmal die 
Beobachtung der Anzeigen in der unters- 
ten Zeile des Bildschirmes. Die erste 
(2-stellige) Zahl ist der Trefferzähler, der 
sich nach jedem erfolgreichen Abschuß 
erhöht. Dann folgt die ORTUNGSANZEIGE. 
Ist hier ein Zeiger zu sehen, befindet sich 
ein gegnerisches Schiff im Umfeld. und 
zwar in Richtung des Pfeiles. Vorsicht ist 
geboten! Kommt der Gegner in Sichtweite, 
wird er das Feuer eröffnen. Die empfindli- 
che Zone am STARSHIP ist der BUG vorne. 
Durch geschicktes Ausweichen oder im 
Notfall durch . Einschalten des Schutz- 
schirmes mit -F7- verhindert man einen 
Treffer. 

Die 5-stellige Anzeige rechts neben der 
Ortung ist der ENERGIEZÄHLER Hier wird 
die noch zur Verfügung stehende Energie 
abgelesen. Diese dezimiert sich durch Be- 
wegung des Schiffes, aber hauptsächlich 


Computbe mi 


.. Beauftragen Sie Ihren BESTEN PILOTEN... 


‚top secret ++++...top secret ++++ 


++++ 


top secret. 


+ 
+ 

HE 

+ 


‚top secret ++++ top secrel ++++ 


beim Aktivieren des Schutzschirmes. & 


Zeigt die Ortung nur einen Punkt, ist kein 
Gegner im betreffenden Raumsektor an- 
zutreffen und ein anderer Sektor muß.an- | 
geflogen werden. 
Drücken der (SPACE)-Taste beschleunigt 
das Schiff rasant und bringt es innerhalb 
von Sekunden in den nächsten Sektor. _ | 
In manchen Raumabschnitten befinden 
sich besonders kleine, wendige Abfangjd- 
ger, die sehr schwer zu treffen sind. Hier | 
liegt es an der Routine des jeweiligen Pilo- | 
ten, ob er weiterfliegt oder das Wagnis ei- 
nes Kampfes auf sich nimmt. 

Das Spiel ist zu Ende mit dem eigenen Ab- _ 
schuß, wobei natürlich keine Auswertung | 
erfolgt - oder mit dem Verlust der Energie. |] 
Ist die Energie fast zu Ende, drückt man | 
kurz die (SPACE) Taste, und die Automatik | 
bringt STÄRSHIP zur Trefferauswertung |] 
an die Basis zurück. | 
Vor dem Laden oder Abtippen des Pro- : 
grammmes den BASIC-START mit dem Be- 
feh! POKE 44,35 : POKE 8960,0 : NEWeinge- 
ben. 
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O REM VOR DEM LADEN ÜDER ABTIFFEN DES FR 
DERAMMES VON HAND EINGEBENS 


1: 

= REM FOKE44,25: FORE 860,0: NEU 

Ku 

4 BREMER REHR HERE HH ER RHEER E 
5 REM* STARSHIF * 
6 FKEM* [de$7 1985 * 
7 REM# HÄNS BAER * 
5 REM#* 7750 SINGEN SIEDLLNGSREG 4 * 
g 


REINE HE EHRE 
io REM EASIE-ENDE AUF 30700 

ii FOKESFS,FF6: POKESG „117 

2 FORESI,E3S: FORESE 11 F:ÜLR 

13 GOSUB 5000: REM DATENFRÜEFUNG 

i5 FORI=3000T03085: READE: FOKET „D:NEXT 

15 FÜORI=3100T07508: READU: FOÖREI „Q: NEXT 

17 FORI=3544417035657 : READEH FOKEI „U: NEXT 
IG=56324 » YW=53248 » 5I=54272 : R=sıTa 


=1 Z5=8192 . sFOKESI+24,15 
22 FOKESIH2O,25:F0OKESI+S,0 
=3 GOSUBI1000 : REM ROM INS RAM 
25 FORI=3F072T0397165: READB: FOREI „B=ENEXT 
Sc FÜRI=3F1737T0397267: READO: FÜKET „OS NEXT 
40 FORI=29ZB07039559: READQ: FOREL ,„B=NEXT 
FORI=3FS5BT03T5F0: RERDO: FOKEI „O= NEXT 
ah FORT=39A0R3TO397 FI: READOSFOHEIL  „D:NEXT 
su FORI=UT0143: READR:FOREZS+ (5588) + IL ,DEN 
:REM ZEICHEN 
FRINT"GEDULD":SYSS9EHE 
FürRi=2038 TD 2577: FOKEI,O:NEXT 
FORI=2137 ID Fiö1:READO:FOKEI „Br NEXT 
FORI= 205770 2082: READO:FOKEI „OS NEXT 
FORI=2208 TO 2238: READO: FOKEI,O:NEXT 
FORI=2270 TO 2302: READO: FOKEI „BO=NEXT 
FORI=2304 TO 2565: READO:FOKEI,O:NEXT 
FORI=23&8B TOD 
FORI=2500T02548: READE: FPOKEI „DS NEXT 
FOKE 2460,56: FDKE 2453,55: FÜKE 2466, 


128 
129 
130 
56 
1372 
140 
143 
144 
145 
147 
150 
155 
160 
1706 
171 
175 
180 
1 
182 FOKE2044,34 ı FOKE2045,35 :FOKE2048,,3 
& »POKE2647,37 sı REM ZEIGER 

184 FOKEV+29,48 : FOKEV+2G, 240: POKEV+23,O 
ı FÜKEV+37,52 

184 FOKEV+43, 1: FOKEV+44 13 

187 FOKEV+39, 1: POKEV+40, 1: PÜKEV+41 ,1 

153 FOKEV+45,7 :FOKEV+46,5 

190 FOKEV+F7 „5: PFOKEV+3B,1 

195 FOKEV+9,197: PFOKEV+11,197 

19& FOREV+B, 138: FOKEV+H1G, 187 

197 FDEE27744,0 

200 FOKEV+30,0: POKES9745,0:REM TREFFERL 
210 FOKES2998,6: FOKEZZ2IB, 255 

250 FOKESI+6,0 


FORI=25971T03622: READO: FOKEI „Q: NEXT 
FORI=25000T03522 1: READG: FOHEI „Os NEXT 
FOKESOS1S,2:REM TEMFO 

FORIT=307 201030847 : READU: FOKEI „OzNEXT 
FORI=30854T703099 1: READG= POKEI ,E:NEXT 
FORI=31008T031316: READG: FOKEI „Us NEXT 
FORT=32998BT033169: READO: POKEI ,„B=:NEXT 
FORI=33296 1033578: READO: FOKEI ‚O2 NEXT 
FORI=33788T0345312: READER: FÜREI „EI NEXT 
FORI=704 10766: FOKEI „OS NEXT 

FOKE76&0, 172: FOKE763 , 255: FOKE766 3 
GOSUBA00: POKESFT47 „6: SDSUBAOOO 
FOKE2040,38 :PDKE2041,38 3FOKE2042,1 


z2&0 FODEKEV+21,240: FOFE32777,0 
270 % 

zBO = 

290 REM HAUFTFROGRAMM 
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2430: READO- FOKEI ,„G=:NEXT- 


u 
ua95 
EWEp= 
bl 
197% 
x102> 
x48: 
z131: 
21325 
Del we 
x176> 
Dar 
se1lF% 
De 7-60 
2117: 
1215 
A222: 
2445 
1835 
Bl 
X1l> 
k173> 
EIE> 
Dh: 
37: 
SaaEn 


a 


zÜ> 
"1B80> 
a 17 Se 
zrld> 
2545 
EEE 
“1715 
S2Er 
249: 


Ä29> 


fi 


er 


£B0> 
<i> 
635 
73» 
<225% 
229» 
137} 
<113> 
<112> 
<237% 
22O6> 
<a5: 


x115> 


programme 


299 3 

300 57333792 

310 IFFEEK (329997) =LTHEN2C000: 
= 0 AUSWERTUNG 

320 IF (PEEK (V+21) AND4B) =OTHENSO00: REM S 
EHIFF ZERSTOERT 

370 POKEV+21,FEEK (V+21) ANDS®P 

400 FORZ=1T020: A=INT<RND(1)#14) 

410 FOKESI+1,A:PDOKESI+4 „0: FÜKESI+5, 10: FO 
KESI+4,129 

420 FOKER,A: FOKER+1 ,A+1: POKER+2, Ar FOKER+ 
z,A+1 

450 NEXT+:FDKER+2, 11: PDKER+3,12 

440 FOKE R,Ö:FOKE R+1,0:5Y533075 

442 FORI=1TB1000:NEXT 

433 GOSUR&0O0 

445 FOKESY745,0 

450 5Y533412 

500 GOTO300 

sio : “ 

S20 : 
&00 POKEIG,FEEK (ID) ANDZS4 

&10 POKEV+13,30: POKEV+15,30 
626 FOREV+12,190: FOKEV+14,204 
625 FOKEV+16,0 

630 FOKEIG,PEEK (IG)ORI 

650 RETURN 

700 > 

800 : 
700 REM INTERRUFT VERBIEGEN U. ZEICHENSA 
TZ INS RAM 

950 2 

1000 FDKEIG,PEEK (IO) AND2SA 

1010 FOKE788, 136: FOKE789 ,138:REM IR@-VER 
TOR 

1020 FOKEi,FEEK(IANDESI 

1030 IFFEEK(23=1THENLOSG: REM UEBERSPRUNG 
1040 FORI=ÜTD5S28 :POKEZS+I „FEEK(VHIJINEX 
T:POKE>,1 

1050 FOKEI ,PEEK(HORA 

1060 FORESS272, (FEEK (SI277) ANDZA41)ORE 
1070 FOKEIG,FEEK(IG)ORI 

1080 RETURN 

1090 z 

2000 REM AUSWERTUNG 

20602 E=PEEK (2000) -48: Z=PEEK (1999) -AB: TR= 
Z#+10+4E: 8=0 

2003 IF{FEEK (V+21) AND48) < >4B8THENS=1 

2005 FOKEV+21,0O:FRINT" CLEAR": 

Z010 FOKER,10: FOKER+1,10: FOKE646 , 1 

2020 PRINT" (HOHE) sh 44LIPACEFALSPAC 
EIUTSPAREISISPACEIWISPÄLEFE TSPACEIRISPAC 
EITISPACEIUTSPACEINISPÄCEIGTSRACEH $4 444 
EI UT 

2150 FRINT"{BLYEYSIETSPACEFHABEN" ; "CHHI 
E3",.TRS"IBLUE SPACEZISCHIFFEISRACE}ZERST 
DERT"=FRINT=FRINT 

=150 PRINT" {RHITEIKOMMENTARTSPACEIHAUFTO 
UARTIERE "SFRINT 

2170 IFTRZSTHENT$="JAEMMERLICH,LACHHAFT" 
: SOTD2200 \ 
2175 IFTR<10THENT$="FASTISPACE}BESCHAEHM 
END"=G60TO2200 

2180 IFTRZ15STHENT$F="DURCHSCHNITTLICH":GO 
TO2200 

2185 IFTR<{ZOTHENT$="HERVORRAGEND" : GOTOT2 
oo 

2170 T#="SUPER,SFITZE,NICHTISPACE> ZUISPA 
CEZ3LIEBERBIETEN" 

2200 FRINT"IHREISPACEILEISTUNGTSPACEI WAR 
=": FRINT:FRINTTE ” 

2210 IFS=1THENPRINT"!1CSPAGEISTARKERISR 
ACEI SCHADEN {SPACE FAM{SPACEFBUBISPACHS 12 I 


REM ENERGIE 














| 

















Gompube mik 


x1027 


S23F> 
Ag, 


S35>r 
x137:> 
x16> 


“Sr 


“273 
<160> 
K217F> 
“92 > 
{55 

54 =752 
<Bl> 
2523 
“375 
<68> 

“2445 
70% 
£1785 
De 
<241> 
“265 

<248> 
935 


<144:> 
“243% 
£«1FI% 
239% 
<248% 
“925 
2227 > 
<“4> 

«ır2> 
171% 
2023 
“128% 
x120> 
<226> 
<BB> 

<159 > 
“1625 


“1925 


2045 


1435 


21575 
L6Br 

11857 
1615 


x187> 


27 





programme 


": 50T02750 

2220 PRINT" {DOHN2 BLYEIKEINTSPACE} SCHADE 
NESPACEFAMISPACEI SCHIFF {SPACE>FESTSESTEL 
LTISPACEN |": GOTOFI0O 

2250 PRINT" {DOWN} DAS{SPACEYSCHIFF SPACE 
151 SPACE NICHT SPACE} IHRTSPACEIEIGENTUM 
IK ESPACEATFÄSSENISPACEFSIETSPACE? BESSER 
LSPACEFAUF" 

2300 PRINT"{DOHN2 SPACE} FEUERS TSPACEID 
RUECKEN" «WAITSAIZU, 16,16 

2310 B0TO17S 

2500 + 

2600 : 

2800 REM SCHIFF ZERSTOERT 

2900 3 

3000 FORZ=1T015:A= INT {RND(L)#15);B=INTR 
ND(1)#15) . 

3010 FOKESI+1 ,A:FÜKESI+4 ,0: FOKESI+S,1S:F 
UKESI+4,129 

#020 FOKE R,A:FÜkE R+i,B 

3050 FOKE R,B:FÜkE R+l,f 

2050 NEXT 

3070 PRINT"IBLACK DOHNI2 RIGHTL3FSCHIFFE 
SPACE}ZERSTOERTISPACER! N" 
30B0 FOKER,1O:POKE R#+1,10 > 
zaso FORI=1T090: SY339487: NEXT 
3100 FORI=1TDI000: NEXT 

3105 FOKE198B,0:POKESZZ80 ‚0: POKESSZBL ,O 
3110 5Y537876 

2120 FRINT"{HOHE WHITE DOWN14 RIGHTLOIGT 
SPACEHALSPACEIMISPACEFE TSRACEZIOTSFACE?V 
ISPAGE>EISPACEIR" 

3130 GETAS: IFAS=""THENS11O 

3150 60170175 

3500 8: 

3600 : 

3700 REM STARTSZENE 

3800 

24000 FOKE R,O:FOKE R+1,0: PRINT" TGLEARF" 
4020 FOKESS270,FEEK (S3270)0R16& 

4050 FOkE R+2,1:POKE R+3,2 

20409 FÜRI=1824T0186%: FÜKEI „69: NEXT 

4042 FORI=1854T01903: FOKEI,7ÜO:NEXT 

4044 FORI=1904101943: POKEI,71:NEXT 

4045 FODRI=1944T01783: POKEI„72=:NEXT 

40489 FORI=1F84TORGPIEFOKEI,73ENEXT 

aus0 94839576: FOKEV+TI ,Z: POKEV+HZ9, 13 FÜRE 
+23 „Or FOREN +16, 0; FOKERU41,57 

4055 5539695 

adao FOKEV, 155: FOKEV+1 725: FOKERO40,49 
4070 POKEV+2B. 1: POKEV+Z7 ‚Or FOKEV+TB, 2: FÜ 
KEV+ZF,O: FOREN +40 8° 

4090 5Y93219:5Y53486 

4100 
4200 
4500 :REM BLOCKSRAFIK STARSHIF 

4503 2 

4510 PRINT" ICLEARI":SYSIFSTE:SYSITATT 
4520 FÜRI=560761056795: FOKEI „15: NEXT 
4530 FOKESETO2,L1:FOKESS2BE,iZE REM MUL 
TICOLOR 

4540 FÜRI=5427 117058287: FOKEI,„1ENENT 

4550 POKE1GZB, 74: FÜKEL1829, 77: FOKE1849,79 
: FOKRE1859,,7& 

asa0 FORI=1827101887: FOKEI ,75:FOkEI+21,7 
S: NEXT: POKXE1938,75 

ass FOR1L=1890T01888: FOKEI,75:NEXT:FOKEI 
872,80 

4570 POKE1879 ‚81: FORE1B89 „82: FORT=186BTD 
1877: FOKEI „80; FOREI+22,80: NEXT 

A580 FOKE 1904,74: FORI=1905101985: FOKF1,7 
Sı NEXT:FOKEL943,76 

45985 FOKE1757,77: FOKE1972,79 





gY3 39695 


[LT 


28 


x196> 


204: 
<115> 
Fr 

1085 
Sazor 
133> 


249? 


S229F 
ARTE 
390° 
1295 


u 


f 
Dr 


2, 


Ei 


us 
EvEr 


ee 


Bao 
whmtr 


ei 


“i0> 
1523 
190 > 
Der. 59 
xBö>r 
ZR06F 
Aa2> 
<2953> 
1267 
1115 
x124> 
AO: 
A23B> 
270: 
AD2EF 
<1> 
1885 
£240> 








4570 FORI=1984T01998- FOKEIT,80:FOKEI+26,8 
O:NEXT:FOKE1997 ,78: FDKEZULF, 78 

4595 FORI=1958T0197 1: FOKEI „BO: NEXT 

4500 FOKE1999 „48: POKE2000 „48: FORI=ZU0STD 
2010: FOKEI ,57:NEXT 

4700 RETURN 
4800 x 

4700 : 

4750 REM 
49860 2 

=o00 FRINT"IGLEAR SPACESFDATENPRUEFUNGS " 
SO10 FORB=1T07: PRINT" ###ISPACEIBLOCK" BB 
222%" 3: GOSUES100: NEXT 

z070 FRINT"{DGHNZ SPACEHDATEN{SPACEFRIEN 
TIGTSPACE?. . . LSPACEZIRITTETSPAGEIWARTEN" 
SoO30 RESTORE: RETURN 
5040 ı 

SOoS0 3 

Sion IFB=1THENZ= 49 


DATENFRUEFUN G 


2.5 = 58508: 60705200 
5120 IFB=2THENZ=- 2793:8 = 45074: EUTOSZOR 
g1z0 IFB=3THENZ= 443:5 = 53198: G0O705200 
St406 IFE=4THENZ= 450:5 = 45929: GOTN3200 
5150 IFB=5THENZ= 787:5 = 90370: GETDS200 
5160 IFB=&THENT= 455:5 = 576353: BOTOS7TOG 
5170 Ze325 5 64773 


5200 A=0 

==210 FOR I = 1 TO Z: READ G: ArA+blı NEXT 
sp2a IF A= 5 THEN ERINT"ISPAGEID.KTSPAE 
Er": RETURN 

SRZO PRINT"FEHLERTSPAGER TI "END 

240 
230 
SZS0 
5300 
53997 
5998 REM BLOCK 1 SER 

59979 2 

6000 DATA?298,183,11,175,18%,11,201,8,240 
„9,201,16,240,17,201,724,240,26,96,162 
5001 DATA1,142,34,208,142,35,208,32,247, 
11,96,162,1,142,34,208,232,142,39,208 
6002 DATAZ2,242,11,96,162,0,142,183,11,2 
32,142,35,20B8,232,142,34,208,96,169,9 
4003 DATA76,249,11,169,10,162,40,157, 31, 
219,157,71,219,157,111,219,157,151,217 
6063 DATA157,191,219,202,208,238,96 

7090 DATALEF ,„32,141,1,212,167,0,141,4,21 
2,169,170,141,5,212,169,129,141,4,212 
7001 DATA96,174,27,212,224,80,176,249,95 
„174,27,212,224,24,194,249,96,174,27 
7002 DATA212,224,985,176,5,169,1,141,15,1 
2,96,224,170,176,6,169,2,141,16,12,96 
7002 DATA149,0,141,16,12,96,173,3,208,20 
1,224 ,240,1,96,17372,208,56,253,12,170 
7604 DATA176,8,173,16,208,75,2,141,16,20 
8,142,2,208,173,29,208,9,2,141,27,208 
7005 DATA173,23,208,9,2,141,23,208,78,5, 
208,233,169,8,141,174,12,169,1,162,13 
7006 DATA142,18,12,157,0,216,202,208,250 
„141,19,12,169,0,141,30,208,173,30,208 
7007 DATA208,246,162,8,160,0,136,208,235 
„202,208,248,169,75,174,1B,12,157,255 
7008 DATAS,202,208,250,173,19,12,240,954 
206 ,18,12,208,1,96,206,19,12,174,27,212 
7007 DATA224,180,17&,14,173,16,208,41,25 
%,141,16,208,32,57,12,76,240,12,173,16 
7610 DATA208,9,2,141,16,208,32,47,12,142 
„2,208,169,192,141,3,208,32,28,12,52 j 
zo DATA126,13,173,16,12,240,39,201,1,2 
210,19,238,2,208,208,11,173,16, 208,75 
7012 DATA2,191,16,.209,738,2,208,76,42,13 
„206,2, 208,209,11,173,16,208,73,2,1%1 
7013 DATA1&,208 ,206,2,208,238,3,208,240, 
73,32,94,12,173,0,220,106,106,106,144 


RINF "Zaun: "5 23 "SUMME: "35: STOP 


Lone : BE u U 2 2 


Gompute mir 





«190: 
<BR 


{Bar 
Dr 
125 
<112> 


Fe 
ce DZ 


1735 
Bel 18 RS 


21945 
241925 
SF 


LRISF 


AT 
<grr 
ZB 
AFFE 
<113> 
<104> 
965 
Bey 2 
Z1SE> 
83% 
x50> 
<71> 
<i9Br 
ZUR 
x218> 
<251* 
2190> 
z208> 
219253 
x175> 
2295 
A143> 


z113> 
24 


s125> 
“117> 
x125> 
2903 
xB3% 
x223> 
35» 
“575 
“18> 
<B7> 
Z1235> 
<159> 
Si1s5r 


1265 





at 


‚3/86 


7014 DATA2Z1,108,176,54,173,0,208, 201,254 
176,27,228,0,2708,738,0,708,738,0,208 
7015 DATA208,15,173,0,708,201,75,.144,9,2 
064,0,208,206,0,208,7058,0,208,173,30,208 
701& BATA41,1,240,12,234,169,0,141,3, 208 
+32,64,122,76,142,12,32,184,11,76, 173 
7017 DATA12,238,19,12,76,173,12,173,29,2 
08,41,253,141,27,208,173,23,208,41,253 
7018 DATA141,25,208,167,32,152,16,157,25 
5,7,202,208,250,734,234,234,76,55,12 
7019 DATA1&9,6,141,397,209,22,54,122,52,1 
15,153,52,194,11,32,194,11,208,1,208 
7020 DATA2ZOB,259,76 
8700 3 . 

89750 REM###HHRRH BLOCK 
89977 2 

jele)e] DATAI7a, =27,212,224,1,240,11,224,2,2 
40,18,224,3,240,25,76,181,1358,173,67 
3001 DATA1SS,73,1,141,67,155,76,181,138B, 
173,68,155,75,1,141,58, 153,76, 181,138 
7002 DATAI597,1,1441,69,155,2058,66,155, 208 
‚92,1689,2,141,66,155,169,0,205,67,155 
9aG3 DATA240,35,2358,14,208,708,11,2738,14 
‚208,173,15,.208,73,129,141,16,208,228 
2004 DATA12,20B,708,11,238.12, 20R,173,1& 
»2098,73,64,141,168,208,768,15,139, 206,12 
7005 DATA7O8,208,11,208,12,209,173,16,20 
8,73,64,141,15,208,2058,14,708, 208,11 
9C0& DATA708,14,208,172,168,208,737,178,14 
1,16,209,768,15,139,758,59,139,1589,0.205 
3007 DATA58,155,250,15,1697,1,141,88,155, 
206&,13,208,208,15,208,240,3,75, 12,137 
7008 DATR169,0,141,58,1595,238,13,208, 278 
„15,208,169,181,205,15,208,176,212,7& 
706097 DATAZ2,139,208,63,1595,209,17,169,9, 
141,63,155,174,248,2,172,254,2, 142,254 
7010 DATA2,190,248,2,75,49,234 
12000 DATA159,0,133,78,189,4,133,79,180, 
37,177 ,76,160,0,145,78,169,40,24,101 
12901 DATA7O,178,5,133, 78, 76,148,157,133 
‚78,230,79,162,7,228,79,240,3,76,168B 
12062 DATA1532,167,0,133,78,169,4,132,79, 
150,58,177,78,200,145,78,136,169,40,24 
12003 DATA1U1,78,1758,5,133,78,76,7211,152 
‚133, 78,230,797,162,7,228,79,240,3,75 . 
12004 DATA211,152,159,0,137,78,167,4,133 
.79,136,16, 214, 94 

130909 DATA169, ö, 132,78,169,4.133,797 „76, 3 
2,5,157,150,0,177,7B, 160,39, Las, 78, 165 
153001 DATA7B,24,105,420,176,5,133,78,76,1 
7,153,133, 78,230, 77,162, 7,228, 79,240 
15306002 DATA3,758,17,153,32,5,153,160,1,177 
,78,1364,.145,78,200,165,78,24,105,40,176 
135095 DATAS5,133,70,76,55,155,133, 78,230, 
79,162,7,228,79,240,3,76,55,153,32,5 
1306064 BATA1S3,200,204,98,153,7240,4,76,55 
‚153,40,75 

13995 ı 

13996 REMRHFRRFF BLOCK 2 Kerr 

13999 u . 

14000 DATA4O,150,0,185,40,4,1593,0,4,185, 
209,6, 153,248 ‚6,200 „204, 112,158,208,23 
14001 DATA160,0,185,80,4,1553,40,4,185,16 
E,6,153,208, 200.204 112,153,208,238 
14002 DATA150,0,195,170,4,153,80,%,1E5,1 
28,6,153,168,6,200,204,112,153,208. 238 
13003 DATAISO,O,185,1650,4,153,12U,4,185, 
88,6,153,128,5,200,204,112,153, 209,258 
14004 DATALAO,O,1585,200,4,1553,150,4,185, 
48,6,153,88,6,200,204,112,153,208,738 
14005 DATA150,0,185,240,4,153,200,4,185, 
8,6, 153,48,6,200,204,112,153,208,238 
14006 DATA150,0,185,24,.5,15933,240,4,185,2 
24 ,5,1937,8,6, 200,204 ,112,153 , 208,238 


HH 


x150> 


xid2r 


“228% 


„3153 


A1S25 


B3> 


xB5r 
29 


1237 


SaBEF 


z148> 


“2l3> 
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x1862> 
A7E> 
13545 
AT 
SmE7 
2317 


1155 


programme 


14907 DATAISO,0,1895,64,5,153,24,59,185,18B 
4,.93,13933,224,9,200,204,112,1535, 208,258 
14008 DATA150,0,185,104,5,153,584,5,165,1 
44,5,153,184,5,200, 204,117, 152,208,22 
14007 DATA160,0,155,0,#, 152,104, 3,185,24 
8,6,152,144,5,200,204,112,152,208,238 
15000 PATA7&E,63,154,19,20,234,532,5,153,1 
60,1,177,78,126,145, 78,200, 200,204 ,61 
15001 DATA154,208,244,160,38,177,7B,200, 
145,78,1376,135, 204,50, 154,208,244, 150 
15002 DATASS, 177,78, 180, 20,145,78,160,0, 
177,78,160.17,135, 78, 165,78,24,105,40 
415003 DATAi76,5, 133,78,76,66,154,132,78, 
230,77,152,7,228,77,240,3, 76,66, 154,7& 
15,000 DATA174,27,217,224,80,176,247,96,1 
59 ,255,141,15,212,169,129,141,18,212 
18001 DATA152,0,169,52,157,0,4,197,0,5,1 
57,0,6,207,208, 244 ,162,31,1537,0,7,202 
15062 DATAZ0B,250,76,245,154.2534,52,144, 
154,137,0,4,32,1443,154,157,80,4,.32,134 
158003 DATA1S54,157,1860,4,32,144,154,157,2 
40,3,22,1434,154,157,64,3,157,4B 16,32 j 
15004 DATA144,154,157,144,5, 157,208,6,32 
„144,154, 157, 224, 5, 157, i78,6,.136,.208 | 
15905 DATA2O2,756,.167,66,180, 1,32,170,154 
,167,67,160,1,32,190, 154, 169 65, 160,2 
14005 DATFZZ,170,154,95 

15500 DATA150,0,16807,7,1532,0,2168,152,0,21 
7,152,0,218, 153,32,218, 1376,208,241,75 
15501 DATA150,0,169,2,153,0.216, 153 „o,zl 
7,152,0,21B, 153,32,218, 1365,708,241,.975 
18995 F 

16778 REMRRFH#RR BLOCK 
159997 r 

17000 DATAO,0,0,24,0,0,0,0,0,0,0,8,28,B, 
G,0,15,158,56,16,16,0,0,0 

17001 DATAO,4,65,295,2535,5,4,0 

17100 DATA170,85,85, 253,253, 253,170, 
170,170,85,85,85,85,859, 255 

17101 DATA253,753,755,7535,259,255,170,17 
0,170,170,170,170,170,170,85,85 

17102. DATABS,85,95,85,85,985,85,255 

17200 DATAO,2,2,15,15,63,583,253,255,255, 
235,255, 299,259, 255,295 

17201 DATAG,172,172,240 ,240,252,392, 299, 
755,253,253,245,245,213,212,85 


HEHE 


170, 


17202 DATABS,85,85,85,85,95,899,85,255, 12 


7,127 ,95,95,87,87,85 

17203 DATA170,170,170,170,170,170,170,17 
0,85,83,82,95,95,127,127,255 

17204 DATABS,213,213,245,245,253,25%,255 
17500 DATAG0,0,0,166,0,2,271,128,11,119, 
75,9,271,224,11 

17501 DATA119,968,2,221,128,0,156,0,0,&0 
17502 DATA24,0,0,255,0,3,255,192,254,153 
,‚127.7,255,2724 ,0,36 

18000 DATA15,0,0,55,192,0,215,138,5,575,1 
22,12,123,128,53,235,128,215,167 

18061 DATAIS1,74,151,141,172,07,181,233, 
87 ,170,170,171 

18501 DATA240,0,0,220,0,.0,215,0,3,245,17 
2,2,237,112,2,735,92,2,218,215,2 
18502 DATA2Z14,181,194,2153,175,114, 
7,94 ,224,,170,170 

17000 DATAS,0,0,5,0,0,21,0,0,84,0,0,80,0 
„11,684,0,155,128,2,85,128,10,170 

17001 DATA128,10,170,174,254,170,187,188 
„204,128,8,204,128,30,170,128,3,51 

19002 DATAS4,0,170,654,0,15,80,0,0,84,0,0 
‚21,0,0,5,0,0,2,0,0 

17501 DATAO,0,192,0,0,80, o, 0,84, „O „0,21,2 
24,0,5,90,0,1,85, 128, ’s, 170, 150, 

19502 ara so ao. 2 178.171 1ad.s1 02,28 
8,51,32,2,170,1680,2,204,192,2,170,0,1 


213,10 


Gompute mib 


A225: 


1285 


2175: 


“1395 


“1875 


2172% 


73h 


<200> 


söo4r 


programme 


17503 DATA240,0,1,0,0,5,0,.0,21,0,0,B4,0, 
0,80,0,0,192 

19400 DATASs2,0,1,255,192,5,241,224,2,127 
„176,2,189,240,15,247,249,31 

17601 DATA246 ,60,31,254,60,25,191,48,27, 
179,240,21,191,252,15,191,248,15,243 
19402 DATA240,7,243,176,7,191,224,1,235, 
192,0,12& 

19700 DATAZ1,0,0,4,0,0,4,0,0,170,128,2,8 
5,96,57,217,217 

13701 DATASZ,85,66,0,21,0,0,8,0 

19995 2 

i?777 REMseHRHRRR BLOCH IS Bear 

19999 : 

20000 DATA159,1,2705,64,155,240,75,160,2; 
205,64,155,240,1,96,169,56,141,156,7 
200601 DATA141,162,9,224,2354,205,64,155,1 
67,5,141,15,212,169,0,141,18,212,169 . 
200072 DATA1197,141,19,212,160,35,141,18,2 
12,173,21,208,7,3,141,21,208,169, 190 
20003 DATA141,1,208,141,3,208,169,8,141, 
0,208,173,168,208,9,2,141,16,208,169,81 
20004 DATA141,2,208,160,9,238,0,708,136, 
208,250, 2064,1,208,180,5,206 ,2,208,205 
20005 DATAB,173,15,208,41,255,141,18,20B 
„136,708 ,240,206,3,208,169,180,205,1 
20006 DATAZOB, 144,18,167,0,141,156,7,169 
„170,205,1,208,144,56,1697,0,141,162,7 
20007 DATA234,173,1,208,201,157,144,8,15 
47,0,141,30,208,96,254,234,167,2,141,15 
20008 DATA7Ii2,167,0,141,18,712,167,11,13 
1,19,212,189,129,1941,19,212,169,0,141 
20009 DATAA4,155,141,30,268,173,30,208,4 
1,67,201,67,240,9,173,21,208,41,252,141 
Z9010 DATA21,208,76,173,12,208,201,1972,1 
76,12,173,12,208,201,150,144,5,167,1 
20011 DATA141,55,155,76,117,137 

ZPO00 DATA160,0,185,40,4,155,0,43,185,80, 
4,153,40,4,185,120,4,153,80,4,185,150 
22091 DATA4,153,120,4,185,200,4,153,160, 
4,185,740,4,153,200,4,185,24,5,1593,240 
22002 DATA4,185,64,5,153,24,5,185, 104,5, 
153,64,5,185,144,5,153,104,5,1985,184 
S2OCH DATAS,152,144,5,185,224,5,153,184, 
5,195,8,6,153,224,5,185,48,6,153,B,6 
22004 DATA185,88,6,153,48,6,195,128,6,15 
3,88,6,185,168,6,153,1278,8,185,208,6 
Z7005 DATA15Z,168,6,185,248,6,193,208,68, 
185,0,43,153,248,6,700,1972,40,208 , 174 
22006 BATAFS 

23000 DATA160,0,185,208,6,153,248,6,185, 
158,6,155,209,6,185,128,6,157,16B,6,185 
22001 DATABB,6,155,129,6,185,48,58,157,BB 
„56,195,8,6,153,48,5,185,224,5,153,8,6 
22002 DATA185,184,5,153,224,5,185,144,5, 
155,184,5,185,104,5,153,144,5, 185,64 
22003 DATAS,155,1094,5,185,24,5,153,64,5, 
185, 240,4,152,24,5,185,200,4,153,240 
232004 DATAZ,185,160,4,153,200,4,105,120, 
4,153,1680,4,185,80,4,152,120,4,185,40 
ZZSU05 DATB4,153,80,4,185,0,4,153,40,4,18 
5,248,5,153,0,4,200,192,40,2798,131,978 
2400G DATA189,1,205,31,121,240,103,175,1 
6, 208,41,64,261,64,208,1,75,172,18,20R 
24001 DATA41,251,141,16,208,172,12,208,1 
72,13,208,141,4,208,140,3,208,173,21 
24002 DATA2OB,9,4,141,21,208,169,32,141, 
3,212,169,0,141,11,212,169,202,141,12 
24003 DATA212,169,1279,141,11,212,169, 1,1 
41,31,121,141,20,121,16%,51,141,2B,1721 
24004 DATA172,77,212,192,85,144,12,192,1 
70,144,16,169,2,141,29,121,76,142,121 
24005 DATA169,4,141,290,121,76,142 121,16 


30 





3,2,141,29,121,169,3,205,29,121,240,47 
24004 DATA157,2,205,27,121,240,55,172,30 
‚„121,208,4,208,209,11,206,4,208,172,16 
24007 DATAZ08,72,4,141,18,208,238,5,208, 
22,242,121,136,208,231,258,30,121,20& 
24008 DATAZO,121,240,114,254,234,254, 98, 
172,30,121,238,5,208,32,242,121, 134,208 
24007 DATA247,76,184,121,172,30,121,23B8, 
4,208,208,11,7598,4,208,173,16,209,73 
24010 DATA4,1941,16,208,278,5,708,372,2472, 
121,1325,208,231,76,184,121,169,207,2705 
24011 DATAS,„2Z08,144,57,169,0,141,20,208, 
173,30,208,41,20,201,20,240,15,206,27 
24012 DATA121,208,251,173,30,.208,41,56,2 
01,36,740,15,96,22,564,1772,173,21,208 
24012 DATA41,259,141,21,208,76,50,1272,22 
„64,122,173,21,208,41,225,141,21,208 
24014 DATA7&,50,122,173,21,208,41,251,14 
1.74,208,169,0,141,31,121,76,169,5,141 
24015 DATAB,212,1689,0,1941,11,212,159,12Z, 
141,12,212,169,129,141,11,212,96 

24700 : 

249955 REM#HHHRHH BLÜCK 5 Jemen 

247997 : 

?5000 DATAO0,0,160,57,2058,218,7,173,218,7 
„201,47,240,1,76,140,218,7,2068,217,7 
25001 DATA173,217,7,261,47,240,1,76, 140, 
217,7,2058,216,7,173,216,7,201,47,240 
25002 DATA1,76,140,218,7,206,215,7,175,2 
15,7,201,47,240,1,96,140,215,7,20&,214 
25003 DATA7,173,214,7,201,47,240,1,96,1& 
2,1,.141,251,128,768,258,208,7,173,208 
25004 DATA7,201,58,240,1,96,169,48,141,2 
08,7,238,207,74,173,207,7,201,50,240,1 
25005 DATAY6,169,1,131,250,178,96,173,21 
„208,41,64,.208,6,169,65,141,212,7,76 
25006 DATAL72,13,208,192,29,176,6,169,30 
„141,212,7,96,173,16,208,431,54, 208,17 
25007 DATA173,12,2608,201,151,178,6,167,3 
1,141,212,7,96,167,68,141,212,7,96,173 
25008 DATA12,208,201,166,176,2537 76,150, 
129 

26000 DATAS0,245,255,0,169,255,141,19,13 
0,254, 254,234,254,239,7234,167,1,1341,1 
2&001 DATAF12,157,0,141,4,212,169,225,14 
1,6,212,169,129,141,4,212,1689,0,141,31 
Z&00Z2 DATALZ1,141,64,155,173,21,208,41,2 
48,141,21,208,174,19,120,1580,5,136,208 
F&003 DATA25S,2Z02,208,249,205,17,130,240 
„49,160,57,32,248,128,175,251,128,201 
25004 DATA1i,240,47,234,254,234,234,234,2 
34,173,21,208,41,53,141,21,208,32,84 
26005 DATA129,22,113,1533,238,17,130,208, 
3,238,17,130,32,30,131,76,67,130,234 
Zu004 DATAZ34,234,32,152,154.173,27,212, 
201,128,144,7,76,160,255,136, 208,253 
25007 DATAF6,174,27,212,224,5,1758,249,23 
2,142,187,138,32,145,130,174,27,212,224 
24008 DATA178,17&,35,169,536,141,254,7,16 
7,37,141,255,7,173,21,208,7,192,141,21 
26007 DAT#208,173,278,7209,9,172,141,28,20 
8,173,29,208,41,63,141,297,208,98,52,143 
6010 DATA130,174,27,212,224,128,144,22, 
172,21,708,7,564,141,21,208,167,533, 141 
2&011 DATAZS4,7,173,28,208,41,255,141,28 
„208,76,32,143,130,169 ,32,141,254,7,174 
26012 DATA2Z7,212,224,128,144,17,175,27,2 
08,41,191,341,29,208,173,21,208,9,64 
26013 DATA141,21,708,96,173,29,208,9,64, 
141,29, 208,173,21,208,7,64,141,21,.208 
260314 DRTAP6,173,16,130,141,0,212,173,17 
„150,141,1.212.95 
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z7000 z . 
31600 DATA4,10,5,0,160,5,1368,708,253,165 
203,201 ,60,208,16,32,20,120,169,0,14i 
31061 DATAS,212,173,251,128,201,1,208,1, 
96,173,21,.208,41,64,240,8,169, 11,141 
31602 DATAZSO,7,76,47,132,169,39,141,250 
‚7,32,84,129,165,202,201,3,208,50,234 
31003 DATAZ34,234,160,57,32,6,129,32,33, 
155,173,28,208,141,255,131,169,0,141 
310064 DATAZB ,208,159,7&,141,249,121,180, 
32,140,1,212.160,0,140,4,212,180,7,140 
‚31005 DATAS,212,160,17,140,4,212,76,125, 
132,32,13,195,234,254,254,169, 240,234 
510068 DATA141,28,208,159,159,141,249, 121 
„173,69,155,201,1,208,3,32,32,121,157 
31007 DATAO,141,69,155,173,31,121,201;,1, 
208,17,706,708,131,208,17,169,5,141,208 
Z1008 DATA131,32,32,121,234,234, 234,254, 
173,64,155,201 ,0,240,8,160,57,32,248 
31009 DATAL29,32,184.156,173, 21,208,41,4 
8,208,3,76,210,133,173,65,155,201,1.208 
31010 DATAZ,94,234,734,1659,0,141,65,155, 
173,0,220,73,255,41,51,170,41,16,240 
31011 DATA13,173,64,155,701,1,240,6,234, 
189,2,141,64,155,138,41,1,240,28,206 
31012 DATA13,208,706,15,208,37,227,133,2 
08,254,131,2098,8,32,0,120,167,8,141,754 
31013 DATALI1,32,188,153,32,232,120,1580, 









Ein kurzes Spielprogramm, bei 
dem man schon mit wenigen 
Programmzeilen Spielvergnü- 
gen erreicht. Einer langen und 
ausführlichen Spielbeschrei- 
bung bedarf es an dieser Stelle 
nicht. Tippen Sie einfach die we- 
nigen Programmzeilen ein und 
warten Sie, was passiert. 
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2433 


sB> 


x18> 


“154> 


x97> 


x102> 


<3B> 


s6l> 


21935 


: IFR=ATHEHE=B-1 


PRIHT"IIPSCBR12: Asa Tel Pe: 
FÜRI=1TOT:HEXTI:PRIMTSPEEBSG 3 N, SPE 
FREIHTSPEERIG RE" 

IFRCE+LÖRASE+LETHEHGOTEL30 
F=f4i:KeIHTeoRHIho#Z 

IFE=1THMEHB=B+L 

IFE<ATHEHB= 

IFEFZTTHEHE=Z? 


FORTI=ATOLE POKESIZIRG ICHEXTIDFRINT'SPUHRTE: ":F© IFPEEKCSS ae 


programme 


41,2,240,29,2358,13,708,738,15,208,32 
31014 DATA227,133,205,254,121,208,8,372,1 
44,120,159,8,141,254,121,32, 158, 133,22 
31015 DaTa232, 128, 1:8, 41,4,240,69, 120,28 
8,12,208,208,11,238,12,208,173.16.208 
310154 DATATZ,64,141,16,208,238,14, 208,20 
8,11,238,14,208,173,16,208,73,170,141 
31017 DATA18,708,898,238,4,208,208, 11,338 
„4,208,173,16,208,73,4,141,16,208, 2064 
51018 DATA254,121,208,8,32,160,1572,169,8 
„141,254,131,32,188,133,52,232,128,138 
31019 DATA41,9,240,69,120,206,12,208,208 
„11,206,12,208,173,16,208,73,64,141,.1& 
31020 DATA708,26G6,14,208,708,11,706,14,2 


08,173,156,208,73,12B,141,16,208,898,206 


31021 DATA4,208,208,11,206,4,208,173,16, 
208,73,4,141,16,208,206,254,131,208,8 


Z1622 DATAS2,14,153,169,8,141,254,131,32 


„188,133,32,2352,128,76,244,133,1569,9 
31023 DATA191,1,217,169,0,141,4,212,169, 
105,2354,141,5,212,3689,179,141,4,212,9&6 
Z1074 DATA159,1,141,32,209,141,32,208,32 
„58,229,167,0,141,21,208,76,173,15, 208 
31025 DATAZC1,201,176,1,96,175,71,208,41 
‚63,141,21,208,96,2058,251,131,208, 13 
31026 DATA205,252,121,208,8,159,7,141,25 
2,131,32,152,154,76,0,132 

327006 END 


ten kann. 


Compufte mib 





Wir sind der Meinung, daß auch 
diese Version, genau wie die be- 
‚reits veröffentlichte für den 
Schneider GPC 464, eine gelun- 
gene Demonstration darstellt, 
daß man auch mit wenigen Pro- 
grammzeilen bereits ein funk- 
tionsfähiges Programm erarbei- 
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ai 





im Moment sind wir noch in der Lage, alle 


Heft 5/85 Heft 6/85 


Commodare 
Besieli-Nr. COM G 1/1 
Bestel-Nr. GOM D 1/1 
Schneider 

Bestell-Nr. COM S 1/1 





16,- DM 
28,- DM 

Schneider 
16,- DM 


software-service 


Commodore 
Bestell-Nr. COM G 2/1 
Bestell-Nr. COM D 2/1 


Bastell-Nr. COM S 2/1 


Heft 7/85 


Commodere 
Bestell-Nr. COM CK 3/1 
Bestell-Hr. COM CD 3/1 


Schneider 
Bestell-Nr. COM SK 3/1 
Bestell-Nr. COM SD 3/1 





16,- DM 
20,- DM 


Heft 9/85 Heft 10/85 Heft 11/85 i 
Commodore Commedore Commodore 
Bestell-Nr. COM GK 5/1 16,- DM | Bestell-Nr. COM CK 5/1 16,- DM | Bestell-Nr. COM CH 7/1 
Bastell-Nr. EOM CD 5/1 20,- DM ; Bestell-Nr. GOM CD 6/1 26,- DM | Bestell-Kr. COM CD 7/1 


Schneider 
Bestell-Nr. COM SX 5/1 
Bestell-Nr. COM SD 5/1 


Schneider 
16,- DM 
39,- DM 


Besiell-Nr. COM SK 6/1 
Bestell-Nr. COM SD 6/1 39,- DM 


Schneider 
Bestell-Nr. GEM Sk 7/1 
Bestell-Nr. G0M SD 7/1 


veröffentlichten Programme und Zeitschriften des 
Jahrgangs ’85 zu liefern. Unser Vorratschwindetjedoch so schnell, daßSie sich beeilen sollten, 
um die letzten Exemplare noch zu erreichen. 
Greifen Sie also schnell zu der beiliegenden Beste 
digen Angaben für Ihre Bestellung entnehmen Sie bitte aus der Bestelliste. 
Die angegebenen Bestellnummern gelten jeweils für eine Heft-Ausgabe. 


il-Karte und füllen Sie diese aus. Die notwen- 


Heit 8/85 
Commodore 





16,- DM | Bestell-Nr. GOM CK 4/1 16,- DM 
20,- SM | Bestell-Nr. COM GR 4/1 ..26,- BM 
Schneider 
16,- DM | Besteli-Nr. GOM SK 4/1 16,- DM 
39,-DM | Bestell-Nr. GEM SD 4/1 39,- DM 
Kett 12/85 
Gommadora 
18,- DM ! Besteli-Nr. GOM CK 8/3 16,- DM 
20,- DM | Besteil-Hr. COM CD 8/1 20,- DM 
Schreider 
16,- EM | Bestell-Nr. GOM SK 8/1 16,- DM 
39,- DM | Bestell-Nr. GOM SD B/1 39,- DM 


Alle Bestellungen werden innerhalb 


I Woche 


nach Eingang in unserer Software-Abteilung bearbeitet. 


Alle Bestellungen werden sofort bearbei- 
tet, so daß keine unnötigen Wartezeiten 
entstehen. Außerdem wird eine „Ladega- 
rantie“ übernommen. Das bedeutet, Sie 
können fehlerhafte oder unladbare Pro- 
gramme zum Umtausch an uns zurück- 
senden. 


Heft 1/86 


tommodore 

Bestell-Nr. COM CK 1/2 
Bestell-Nr. COM CD 1/2 
Schneider 

Bestell-Nr. COM SK 1/2 
Bestell-Nr. COM SD 1/2 


16,- DM 
20,- DM 


16,- DM 
39,- DM 


32 


In unserer Bestelliste finden Sie Software 
für alle Anwendungsgebiete. Schauen Sie 
einmal unverbindlich auf unser Angebot. 
Vielleicht können wir auch Sie von unse- 
ren hervorragenden Angeboten überzeu- 
gen, und Sie senden uns den ausgefüllten 
Bestellcoupon ein oder greifen einfach 


Heft 2/86 

Commodore 

Bestell-Nr. COM CK 2/2 16,- DM 
Bestell-Nr. GDM CD 2/2 20,- DM 
Schneider 

Bestell-Nr. G0M SK 2/2 16,- DM 
Bestell-Nr. COM SD 2/2 39,- DM 


Gompute mib 


zum Telefon und bestellen telefonisch un- 
ter den Nummern: 


05651/40643 
oder 40693 


Aus diesem Heft 


Commodore 

Besteil-Nr. COM CK 3/2 16,- DM 

Bestell-Nr. COM CD 3/2 20,- DM 

Schneider 

Bestell-Nr. COM SK 3/2 16,- DM 

Bestell-Nr. COM SD 3/2 . 39,- DM 
3/86 


Programm 


Preis/ 


Kassette Diskette 


Preis/ 





Multi-Key/S-Tao! 64/ 
Interrupt-Programme 
Spritehilfe/Diskloader/ 
Directory 
Tapa-Directory/Asmon/ 
Data-Generator 

Fast Load 
Diskmanitor/Zeichensalz 
Asassembier/Maskengenerator 
Bet 63/Treibergrogrammm 

für 1526/MPS 802 Decelevator 
$uperlapedirectory/Aenew/ 
Kontrollabfrage 

Video-Uiities, 

Kulti-Basic 43, Bildeditor 
Retter Basic/Autonumber/ 
Hardcopy/Terminalprugramm 
Speicher-Oszilloskop/ 
Makru-Assembler/Ghange Type 


21,-- DM 
35,-- DM 
10,-- DM 
20,-—— DM 
15,-- DM 
14,-— DM 
15,-- DM 
17,-- BM 
17,-- DM 


49,-—— DM 


Reactor/Concentration/Datenbank 17,50 DM 


Warlords/Caverns of Death 
Alien-Bestroyer/Duell 
Ocean Game/Tennis 

The GCaves 

Sardener 

Ufo/Skateboard Sam 
Mauern/Widerstand 
Space-Comets/Erdspalte/ 
$prite-Data 
Autostart/Bestellschein/ 
Roadpainter 
Hardcopy/Space-Fighter/ 
Dats-Generator 
Monster-Altack/Block- 
Painter/Epson-Drucker 
Projekt/Datenbank 
Spiders/The Basic 

High Naon/Skeet/ 
Grafik-Designer 
Fainter/Star-Baddie/Editor 
Wüstenrally/Jet-Pac/ 
Black Moore Castle 
Brieltaube/Gadeton 

Ritter Erik/Grand Prix Spritehilfe 
Firebird/High Music 
Muonsweeper/Scotti 
Tran/Mereurlous 
Interceptor-Base/Schatter 


14,50 DM 
24,50 DM 
17,50 DM 
17,59 IM 
17,59 DM 
24,50 BM 

8,--5M 


15,-- DM 
16,50 DM 
15,50 DM 
16,50 DM 
16,—- DM 
16,50 DM 


17,59 DM 


1750 5M 


17,50 DM 
19,50 DM 
19,50 DM 
24,50 DM 
24,50 DM 
24,50 DM 
24,50 DM 


21,-- DM 


20,-— DM 


"1, DM 


23,-- DM 
23,- DM 


54,-- DM 
23,50 DM 
19,30 BM 
29,50 DM 
23,50 DM 
23,50 DM 
23,50 DM 
29,50 DM 
15,-- DM 


23,50 DM 
23,90 DM 
19,50 DM 


23,50 DM 
23,50 DM 
23,50 DM 


23,50 DM 
23,50 DM 


23,50 DM 
24,50 DM 
24,50 DM 
29,50 DM 
28,50 DM 
28,50 DM 
29,50 BM 


Bestell-Nr. 


UC 2/85 
U6 3.1785 


UG 3.2/85 
Uc 4/84 
UC 5/85 
EG 6/85 


VE 7/85 
UC 9/85 
UC 9/85 
us 18/85 


VC 1/86 
K&E/G-1 
HE/G-2 
HG/C-3 
HL/C-A 
RC/C-5 
HC/G-6 
HE/G-1-4 
Ga 


651 
E61 
tn 


681 
69 
6 101 


c 121 
c22 


632 
642 
652 
E62 
672 
£13 
623 


Neu in unserer Software-Bestell- 


liste der 


Fantasy-Countey 
Horror-Castle 
Zeichendesigner 
OLD-Rautine-Merge-Routine/ 
Change Type 


3/86 


18,-- DM 
14,-- DM 
14,-- 


23,-- DM 


19,-- 


023 
UO 8/85 
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software-service 


Programm 


Preis/ 
Kasselie 


Preis/ 


Bisketie 





Bestelischein/Glücky 
Muitigraph/All Rammer 
Zykta/Meteorit 
Garten/Schloß Gruselstein 
Fressman/Dutlaw 
Prost/Buffale Bill 

Jay Man/Powerpack 

Der rasende Malocher/ 
Frankie goes 10 Pharao 
Matron/ühst 

Race On/’Cayy 

Nürburg 3D/Däsi 
Breaker/Expulsion 
Brückenbau/Jango 
Inka-Schatz/ 

Miner der Fassadenstreicher 
Zykio/Geldsammler 


Star-Wars/Punktefresser 


Catch the fish/Mister Jump 
&host's Eygs/Fox Hunt 
Cullector/Break But 
B-Zert/Salvage Crew 

Dog Fight/Schwitzbad 
Sprites/Space-Battle 
Gralik-Painter 
VIG-Clock 
Decelerator 
Jeypaint 
Disassembler, Did-Pragramme 
Directory/Farb-JRO 


n 


8,50 DM 
11,-- DM 
11,-- DM 
14,-- DM 
14,-- DM 
14,-- DM 
14,-- DM 
14,—- DM 
14,-- DM 
14,-- DM 
14,—— DM 
14,-- DM 
16,-- DM 
16,-- DM 
11,50 DM 
14,50 DM 
14,50 0M 
14,50 DM 
14,50 BM 
16,50 DM 
16,50 DM 
13,-- DM 
10,-- DM 

9,-- DM 

9,-- DM 
12,-- DM 
10,-- DM 
10,-- DM 


15,- DM 

15,50 DM 
19,50 DM 
19,50 DM 
19,50 DM 
?9,50 DM 
19,50 DM 


19,50 DM 
19,50 DM 
19,50 DM 
19,50 DM 
19,59 DM 


21,50 DM , 


21,50 DM 


ı ren} 


nr ı 





Autorennen 

Universal-Datei V1 . 
Comanterschritt/Symbol-Swap 
Keyboard Too!kit/Farbdecodierung 
Aladin 

Painter/Bux-Befehl 
Masehinensprache-Manitor/ 
Bisk-Hilfe 

Basic, Maschinen-Kit 
Backup/Directory/ 
Ellipge/Disk 
Data-Generatar/Grafik Tonikit/ 
ASEI List (Turbo Pascal) 
Fallschirmspringer 
Geisterschloß 
Zeichendesigner 

Mini Car Race/Interceptor 3 B 
Secret Agent j 
Super-Miner 

CPC-Bert 

Gonan's Castle 

Snider's Mace 

Schneider Parik/ Killership 
Horror-Gaves/ 

Midnight 


Gompute mi 


11,-- DM 
9,-- DM 
18,-— DM 
11,-- DM 
8,-- DM 
14,-- DM 
15,-- DM 
t2,-— DM 
15,-- DM 
9,-- DM 
9,-- DM 
12,50 DM 
17,50 9M 
12,30 
14,-- DM 
14,-- DM 
15,50 DM 
18,50 
18,50 DM 
18,50 DM 


26,50 DM 
24,50 

24,-- DM 
24,-- DM 
25,50 DM 
26,50 DM 
28,50 DM 


Bestell-Nr. 


v5 
v7 
v8 
v9 
vı101 
vızı 
v22 


Y32 
va 
v5 
Y62 
72 
v13 


v23 
RE/AV-1 
HE/YV-2 
HC/V-3 
AC/Y-4 
HC/V-5 
HC/V-6 
HG/V-1-4 
UV 2/85 
UV 5/85 
UV 6/85 
uv 7/85 
UV 8/85 
8/85 

UV 10/85 


us 3/85 
US 4/85 
us 5/85 
US 6.1/85 
US 6.2/85 
US 7/85 


US 8/85 
US 9/86 


US 10/85 


us 1/86 
HG/SR-3 
HG/SR-4 
HG/SB-5 
HG/SR-6 
HL/SR-1-4 
SR 42 
SR 52 
SR 62 
SR 72 
SA 13 


SR 23 


bücher 


Was fehlt auf Ihre 
Bücherbord? 












Leicht verständliche Einführung mit Programmbeispielen 


Das lebendig geschriebene Buch beginnt 
mit einer kurzen Übersicht über die Pro- 
grammiersprache BASIC, webei das 
Schwergewicht auf die Befehle gelegt 
wird, die zur Textverarbeitung benötigt 
- werden. 
Danach werden die Anforderungen disku- 
tiert, die an ein Textsystem gestellt wer- 
den. Hieraus werden der. Aufbau und die 
Funktionsweise eines einfachen Textpro- 
grammes entwickelt, das sich in über- 
sichtliche Programmbausteine aufteilen 
läßt. Diese Bausteine werden anschlie- 
Bend programmiert und fügen sich nach 
und nach zu dem fertigen Textsystem zu- 
sammen. Der Leser nimmt auf diese Wei- 
se aktiv an der Entwicklung des Textverar- 
beitungsprogramms teil. 


Es ist allerdings auch möglich das Pro- 
gramm nur einzugeben, ohne sich sehrin- 
tensiv mit der Materie zu beschäftigen. In 





Autor: J. Kwiatkowski - Carl Hauser Verlag 
München: ISBN: 3-446-14154-5 





Denksport auf dem Commodore 64 
43 Programme: Logik - Strategie - Mathematik 





einem weiteren Abschnitt, der für den fort- 
geschrittenen Leser gedacht ist, wird die 
Materie weiter vertieft und auf die speziel- 
len Möglichkeiten des Commodore 64 
eingegangen. Dadurch istes. möglich, daß 
der Leser seinen Commodore 64 optimal 
auszunutzen versteht. Der letzte Abschnitt 
stelit schließlich einige kommerziell er- 


hältliche Textsysteme und deren Möglich- 


keiten vor. 


Einige Kapitel aus dem Inhalt: 

- Hardware . 

- Grundlagen 

- Wir überarbeiten das Haupt- 
menue 

= Die Untermenues werden pro- 
grammiert 

- Es geht weiter mit der Texiver- 
arbeitung 

- Professionelle Texisysieme 

— eic. 


NT 
Autor: John W. Stephenson: Carl Hauser Verlag München; ISBN 3-446 14353-5 


‚Eine Fülle von unterhaltsamen und span- 


Denksportaufgaben sind hauptsächlich 


nenden Computerknobeispielen, die gei- | zur Unterhaltung gedacht, sie haben je- 
stig herausfordern. Diese fesselnden 
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Compute mit 


effektr 
Der Anwender lernt spielend eine Menge 


| doch einen weiteren erfreulichen Neben- | über Programmierung und Mathematik. 
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Konzentration und Vorstellungskraft wer- 
den verbessert, Kopfrechnen geübt, Logik 
trainiert. 

Die auch für Anfänger besonders geeig- 
neten Programme sind kurz gehalten, um 
die Eingabezeit zu verringern und Tipp- 

; fehler möglichst auszuschalten. 

Das Buch bietet so die Möglichkeit, sich 
im Denksportspiel mit der analytischen 
Geometrie, linearen Gleichungen, quadra- 
tischen Gleichungen, linearen und nichtli- 
nearen Gleichungssystemen, Lagrange- 
Interpolation, Wahrscheinlichkeitsrech- 


rung und Statistik, dem Pascalschen 
Dreieck, komplexen Zahlen, Zahlensyste- 
men, Kartesischen Polarkoordinaten und 




























Euklidschem Abstand auseinanderzuset- 


zen. Außerdem werden Logik- und Kon- |: 


zentrationsspiele geboten. 
Der C-64 Anwender erhält mit diesem 
Buch die Möglichkeit, seinen Computer in 
allen Bereichen des Befehlsaufbaus und 
der Programmablauftechnik näher ken- 
nenzulernen. 
Die Denksportaufgaben stellen eine sinn- 
volle und zugleich lehrreiche Abwechs- 
| lung unter den Computerspielen dar. 
Jeder der gern sein logisches Denken trai- 
nieren und ausbauen möchte findet hier 
die die richtigen Ansatzpunkte. 
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bücher 


Datenübertragung mit Heim- und 


Personal-Computern 


MODEM und Hacker G 


- Handbuch 





von S. D. Roberts und E. Floegel 


Dieses Buch wendet sich an Alle, die mit 


Datenübertragung näher in Kontakt kom- 
men möchten. Es erläutert den heutigen 
Stand der Technik und zeigt anhand von 


- Beispielprogrammen, wie Daten mit ei- 


nem Computer übertragen . werden. 


Gleichzeitig wird dabei erläutert, welche 


Dienste hierbei die Bundespost leistet und 
welche Netzwerke verwendet werden 
können. Im Einzelnen werden in den ver- 
schiedenen Kapiteln die Funktionsweise 
und der Aufbau der RS-232 Schnittstelle 
erläutert, zwei Bauanleitungen für den 
Bau einer RS-232 Schnittstelle veröffent- 
licht und die Schaltungen mit Hilfe eines 
Programmes erläutert. Außerdem wird 
das Modem erläutert und das Thema der 
Datenübertragung und Mailboxen näher 
durchleuchtet. Zum Schluß des Buches 
wird noch das Datex-P Netz der Bundes- 
post beschrieben und im Anhang des Bu- 


ist Fachliteratur rund um den Gomputer. 
Zahlreiche Kontakte zu verschiedenen 
Verlagen im Inland, die uns freundlicher- 
weise ihre neuesten Ausgaben zur Verfü- 
gung stellen, ermöglichen uns auch hier, 
immer am Ball zu bleiben. Erstes Fazit - 
ebenso wie auf dem Zeitschriftenmarkt 
quellen die Regale über von Computer- 
Fachliteratur. So undurchdringlich wie der 
Zeitschriftendschungel ist mittlerweile 
auch der Markt der Gomputer-Taschenbü- 
cher bzw. der gesamten Fachliteratur. 


GSompute mib 


ches werden Fachausdrücke erläutert 


$ Wir steilen Ihnen in jeder Ausgabe einige 





und Mailbox-Nummern bekanntgegeben. 
Alles in allem kann man sagen, daß dieses 
Buch einen Ein- und Überblick über die 
Datenübertragung mit Heim- und Perso- 
nal-Computern gibt. 





Neuerscheinungen vor. Zu beachten ist, 
daß durch die Vielzahl der angesproche- 
nen Themen nur Buchempfehlungen wei- 
tergegeben werden können, die keine 
Wertung der einzelnen enthaiten. Es ist 
durchaus möglich, daß Sie als Leser bei 
der Beurteilung eines Buches zu einem 
völlig anderen Ergebnis kommen können. 


Wir sind der Meinung, die Information ist 


für uns oberstes Gebot und werden daher 
auch weiterhin - dank der freundlichen 
Unterstützung der Buchverlage - die je- 
weils aktuellsten Bücher in kurzen Ab- 
handlungen vorstellen. 
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programme 


Wie schon der C64-Checksummer be- 
steht auch das VC-20-Programm aus ei- 
ner kleinen Maschinenroutine. Aus Spei- 
cherplatzgründen konnte jedoch dieses 
Programm nicht „unter“ dem ROM abge- 
legt werden, sondern hier mußte der be- 
kannte Kassettenpuffer herhalten. Dies 


daß nach der Aktivierung des Checksum- 
mers keine Kassettenoperationen durch- 
führbar sind, da diese den Kassettenpuffer 
benötigen. Um die Kassettenoperationen 
wieder zuzulassen, muB der Checksum- 
mer durch den Befehl „SYS 58459“ sowie 
durch das Betätigen der Tasten STOP/ 





Funktion und Arbeitsweise stimmt mit 
dem C64-Checksummer überein, so daß 
eine nochmalige Beschreibung an dieser 
Stelle entfallen kann. 

Für alte, die nicht gerne abtippen, ist der Check- 
summer unter folgender Bestellnummer zu be- 
ziehen: 












































hat den Vorteil, daß kein Basic-Speicher | RESTORE abgeschaltet werden. Aktiviert | W10K Kassette 10 DM 
verlorengeht. Der Nachteil besteht darin, i wird der Checksummer mit SYS 828. Die | W10D Diskette 15 DM 
LIKE BE 1785 7& FRINT"TASTEN{SPACE3STOF/RESTORE" x196> 
Z REM CHECKSUMMER YO 1.0 21265 .77 FRINT"BETAETIGENIEPACEF!" «19%: 

Z REM VE 20 VERSION <B> 80 FOKE B18,116:POKE 818,116&:FÜükRE 817,19 

4 REM COPYRIGHT FRANK BRALL. «1263 &:FOKE 819,194: REM SAVE/LOAD AUS «151> 
SREMOTRONIC-VERLASG <22B > 90 BY5 B2B: PRINT" IDONNFEHECKTSPACEIL.. CIE, 

RE RR ER iBlL> PACEFISTISPACEIAKTIVISPACEH !" 975 

7 REM <150> 100 DATA 169,71,141,2,34,169,2,141,3,3,7& 

10 PRINT"INLEAR DEHN SPACEICHECKSUMMERTE „32,105,3,134,122,132 855 

PACEIVETSPACE} I. OISPACER?" “216> 161 DATA 1273,232,115,0,170,7240,243,162,25 

20 FRINT "{DEHNFLCOFYRIGHTTSPACEIFRANKESR 5,124,58,144,8,134,255,32,121 x100> 
ACE3BRALL" ai 107 DATA 197,76,225,199,162,1,134,2595,76 

30 PRINT "IDOHNI--——- ISPACEFÜR. 61.861IEPA ‚„156,195,166,255,224,1,240,3 <161> 
CEI3-——-- " 21527 103 DATA 74,75,197,159,0,141,248,3,141,2 

35 FRINT "{DBHN SPACEAFTRONIE-VERLAG" <123> 49,3,141,250,3,160,2,24 <211> 
80 DA=0:FORI= 828 TO 1070 <158> 104 DATA 177,95,200,113,95,131,250, 5,160 

&i1 READ DA: SU=SU+DA <163> „3.200,177,953,240,44,201,34 “193> 
62 FOKE I,Da bad; 105 DATA 208,10,173,248,3,73,1,141, 248,3 

&3 NEXT I x83> „177,75,174,248,5,208,4 <94> 

55 IF SLi>22#19 THEN FRINT"IBGUNFFEHLERT 106 DATA 701,52,240,228,238,249,5,174,24 

SPACE} IN{SPACEIDATA-ZEILENTSPALEIT":END  =14> 9,2,24,177,95,109,250,5,141 “31% 

70 FRINT"{DOHNF" LP22r i07 DATA 250,3,202,.208,244,75,128,2,596,3 

71 PRINT"AKTIVIEREN{SPACE}=SYSTSPACEIB2B 2,240,255,142,7246,3,140,247 22025 
" <P% 108 DATA 3,162,0,160,0,24,32,240,255,169 

72 PRINT"ABSCHALTEN{SPALCEY=SYSTSPACEI5B4 „91,32,9,225,169,0,174 LRE2r 
54" «74% 109 DATA 250,3,32,205,221,169,93,32,9,22 

73 PRINT"VOR{SPACEIBETRIERBISPACEIDERISPA 5,32,63,703,32,65,202,172 «21>5- 
CEIDATA-" 2405 110 DATA 247,3,174,246,3,24,32,240,255,1 

74 FRINT"SETTEISPACEIDEN{SFPACEICHECKSUMM 62,0.134,255,76,111,2,0 «121» 
ER" z2B: 111 DATA 0,0,0,0,32,0 <11B> 
75 PRINT"ABSCHALTENTEPACEIUND{SPACEIDIE" <8B0> 





Ein Lauf- und Kletterspiel für den VC-20 mit mindestens 8 K-Ram 


„Robin at Ravenwreck“ 


Das Spiel ist in drei Teile mit je fünf ver- 
schiedenen Runden untergliedert. Gleich 
zu Beginn begibt sich Robin auf die Dia- 
mantenjagd (blinkende Punkte). Seine 
Aufgabe besteht darin, die gesamten 
kostbaren und weit verteilten Edelsteine 
einzusammeln, bevor die Uhr abgelaufen 
ist. Um dies zu schaffen, bedarf es einiger 


| 


Übung und Geschicklichkeit. 

im weiteren Verlauf des Spiels wird durch 
das Verändern des Screens die Diaman- 
tenjagd wesentlich erschwert: So findet 
ein. ständiger Positionswechsel des zu 
durchquerenden Ausgangstores statt, er- 
scheinen plötzlich neu einzusammelnde 
Diamanten auf dem Bildschirm, verän- 
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dern sich die Laufstege usw. Robin muß 
also seine „Brötchen“ (Diamanten) sauer 
verdienen. 

Als Krönung des Ganzen verringert sich 
im höchsten Level auch noch die Spielzeit, 
sodaß Robin keine Ruhepause vergönnt 
ist und das Einsammeln nur noch in ra- 
sender Hast erfolgen kann. 
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| diese Zeile eintippt: 
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Zum Abschluß noch einige Erläu- 
terungen: 


- Die Aufzüge transportieren Ro- 
bin eine Etage höher. 

- Auf den Fließbändern kann 
man sich nur in Richtung des 


Bandes fortbewegen. det. 


Nach 


- Im Gegensalz zu den grünen 
Laufstegen können die weißen 
nur eimal überquert werden. 

ihrer Benutzung ver- 

schwinden diese und Robin 
fälltnoch zu Boden, fallser sich 

im gefährdeten Bereich befin- 


programme 


Anzeigen: 
Zeitieiste 


den Punkte 


stehenden Figuren 


6-stellige Score-Anzeige 
Anzahl der noch einsammeln- 


Anzahl der noch zu Verfügung 





Hinweise zum Abtippen: 
Vor dem Abtippen und vor jedem Einladen 
des Programms ist es wichtig, daß man 


Programmteil 1: 


10 PRINT"PLERSESPACEIWAIT!":FORI=6T0264 
:PÜKE S120+1,PEEK (32769+71)=2 NEXT 

20 Y=1: FORI=82810872: READA: POKEI „Ar S=5+A 
=NEXT: IFS< >548260T0400 

50 $=0: X=2: FORI=9T0336: READA: POKESSB4+E, 
A: 5=5+A: NEXT: IFS< >37497460T0400 

60 5=0: X=3: FORI=0T015: READA: POKES3S60+T,A 
=5=64A: NEXT: 1FS<>27126070499 °. 

70 5=0: X=4: FORI=0T0372: READA: POKE4540+1, 
Ar S=5+A: NEXT: IFS< 4177976070400 

100 FRINTCHRE& (147) 3 :FORI=0T022:PRINFCHRE 
(17}3=NEXT:FRINTCHRE (SI 3 

105 POKE36865 ,42: PGKE36877 ,B: CLR: C$=CHRE 
(145) 

110 FORI=1T020: ONIGOSUB300,900,310,900,3 
20,330,700,340 

115 IFI<17THENI12O 

11& GNI-146G05UB350 ,351,700,900 

120 5YS828:NEXT:50TO1000 

300 FRINTC#" {SPACEHRÜBIN{SFACEYÄATISPACEF 
RAVENWRECK" RETURN 

310. PRINTECF" (CH MENLXXKXVISPACEHR. KOERBER" 
: RETURN 

320 PRINTCH" {SPACESFHÄZELNUT"=RETURN 

350 PRINTCH" {SPACEFFSOFTWARE" RETURN 

346 PRINTEF" SPACE "CHRE LSA" AXSPACEYSIG 
N{SPACEFOFLSPAGEIGUALITY"CHRE U34) : RETURN 
350 PRINTCEF"'DOISPACEFVYOUTSPACEFWISHISPAL 
E}THETSPACEIIN-" RETURN 











. 351. FRINTC$"STRUCTIONSPISPACEIY/N"SRETUR 





N 

352 PRINTCFTHETISPACEIGAMEISPACEIWILLISP 
ACEFLODAD. ":RETURN 

353 PRINTC#"PLEASEISPACEIWATT. "RETURN 
360 REM #HRHRRRHH DATA-BLOCK 1 RR 
+ 

361 DATA32,768,3,205,1,144,1753,1, 144,201, 
39,208,243,76,97,3,169,1,133,2,162 

362 DATAL?0,180,0,136,208,253,202,208,24 
8,198,2,165,2,208,240,976,167,42,141 








"363 DATA1,144,758,117,233 


400 PRINT"PRUEFSUMMENFEHLER{SPACE}INISPA 
CE23BLOCK"3 X 

410 END 

&00 PRINTC$"GUIDETSPACEIROBIN{SPACEITHRO 
UGR" : RETURN 

601 PRINTC$"THE{SPACEICASTLESTSPAGEIOF": 
RETURN 

&02 PRINTC$CHRS (28) "DURGHANLSPACEITHEISP. 
ACEFEVIL. ":RETURN 

&03 PRINTCSCHRS (5) "COLLECTTSPACEFTHECSPA 
CEFTWINKLING" = RETURN 

804 PRINTC$"DIAMONDS , [SPACEI BUT {SPACEIDO 




















POKE44,24:POKEG6144,0:NEW 

Erst danach das Programm einladen! Be- 
sondere Sorgfalt beim Eintippen verdient 
der Data-Block 4 im Vorprogramm und 


“477 
«2555 


“114> 


„121> 
x103>7 
<1> 
x73> 
“2aAl> 
“2517 
“224> 
“112Fr 
x17> 
<139> 


<195> 


tioniert, 


N'T”:RETURN 
605 FRINTCF"RUN{SPACEFDQUTTSPAGE FOFISPACE 
>TIME!":RETURN 





&0& FRINTCHFCHRE (289 "USETSPACEYJOYSTICKIES 


PACE FCONTROL" RETURN 
&97 PRINTC#"TO{SPACEIMOVE,. {SPACE FELEVATO 
RS”: RETURN 





08 PRINTCH"RAISETISPACEIYOLUTSPACEIUP „ESP 








ACEFTOTSPACE GO": RETURN 





607 PRINTC$"DOWN, TSPACETYDUTSPACEIHAVE TE 


PACEFTO" RETURN 

810 PRINTC$"FALLTSPACEIUNTILTSPACEIYOU’L 
L":RETURN 

&11 PRINTCEH"HIT{SPACEITHETSPACEIBROUND. " 
: RETURN 

&12 PRINTCHCHRS (5) "YOU{SPACEHONLY SPACE} 
HAVEXSPACE}THREE" = RETURN 

613 PRINTC$"LIVESTSPACEISOTSPACHFBETSPALC 
EFCAREFUL! "RETURN 

5814 PRINTC$CHRS (28) " IFTSPACEIALLCSPACEYD 
TAMONDS {SPACE ARE" =: RETURN 

615 PRINTC$"COLLECTED,RUN{SPACEITOLSPACE 
+THE"z RETURN 

&1& PRINTC$"EXIT. ":RETURN 

617 PRINTES"VOU'LL{SPACEIFIND{SPACEIMORE 
SPACEIDIA-" RETURN 

S18 PRINTES"MONDS{CSPACEYINISPACEITHETSPA 
CE>NEXT"=RETURN 

&197 PRINTEF"LEVEL? "RETURN 























"8620 PRINTEFCHR$ {53} "HINTS YOUISPACEIMAYISPR 


AGEFRUN" S RETURN 
&21 PRINTC$"ISPACESIFÄASTERTSPACEFONTSPAC 
E>THE" RETURN 
&22 PRINTC$"CSPACESIASSEMBLY-LINES":RETU 
AN 

23 PRINTOS"SPACESIBYTSPACEIPRESSINGESP 
ACEITHE" RETURN 
624. PRINTGS” {SPACESIJOVSTICKTSBACE} INTO" 
3RETURN 
625 PRINTE$"{SPACESYTHETSPACEIDIRECTION" 
sRETURN 
&2& PRINTC$"{SPACESFYOULSPACEFWANTISPACE 
ITO{SPACEFMOVE" RETURN 
900 RETURN 
1000 POKE19B,0:WAIT1IB,1:6ETA$: IFAS="N"T 
HENSO00 
1010 IFA$<>"Y"THEN 1000 
1015 PRINT:3PRINT 
1020 FORI=1T038:5Y5 828 
1039 ONIGUSUBA00,601,502,603,604,605,60& 
507 ,608,609,610,611,612,613,614,615,616 
„517 
1031 IFI<18G0T01040 
{032 ONI-18G0SUB618,619,620,621,622,623, 
624,625, 626 
1040 SYSA28:NEXT 
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die Zeilen 9500-9530 im Hauptpro- 
gramm, da hier die Assembler-Routinen 
liegen, ohne die das Programm nichtfunk- 


<21> 
<214> 
<45> 
<142> 
<25> 
<142> 


<x1487 


-140> 
<140> 
<158> 


“«1976> 
13775 


“164> 


“195> 
<11B> 


<215> 
<2> 
<177> 
4133> 
<108> 
<7> 


S7F> 
z21> 


x206> 
<131> 
ı210> 
<Abr 


<bb> 
Aa2zr 


“2225 
x<1983> 
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programme 


1050 PRINT"REPEAT{SPACE}INSTRUCTIONS?" 35 
GOTO1000 

5000 PRINT 

Soio EORI=1T08: ONIGOSUBY00 ‚900,700 ,352,9 
00 ,353,900,900 

s020 5Y5828:NEXT 

3030 POKES31,131:POKEiFE,1:NEW 

5050 REN mar DATA-BLOCHE Z FRE 
Kt 

so51 DATA2SS, 255,255 ,255, 255,255, 259,255 
36,56, 36413 23, 7255, 189,247 .255 

5052 DATA190 ,247 ,223,255,231,195,129,127 
;129,129,129,129,230,230,230,230,250 
5053 DATA2SO ,230 ,230 ,40 „40 ,255,235,239,2 
55,40,40, 255,255, 285, 255,187 ,239,127 
s054 DATA247 ,255, 255,24 ,255,187,239,127, 
247 ,56,56,16,120,20,168,40,72,56,96 

5055 DATAL5,60,80,16,40,56,56,56,16,96,8 
4,16,40,40,56,56,146,124,16,16,40 

s056 DATAGBy aan 1 2baasan nenn 242402095 
8,16,32,64,,126,7B 

5057 DATA78,78,78,78,126,0,30,62,110,78, 
14,14,13,0,126,78,14,126,64,78,126 

SsosB DATAO,126,78,14,62,14,79,126,0,78,7 
8,78,176,14,14,14,0,126,78,64,126 

50597 DATA14,78,126,0,126,78,64,126,78,78 
„126,0,326,14,14,14,28,28,28,0,126 

SO&05 DATA78,78,1265,78,78,126,0,126,78,78 
„126,14,78,126,0,251,251,291,233,255 
5061 DATA255 ,255,255,191,191,191,259,255 
„255 ,255,2595,14,24,48,96,48,24,19 

s062 DATAO,48,48,48,48,48,48,48,0,10,7 ,1 
0,26,8,14,140,105,119,160,230,150 

S06F DATA14,42,185, 146, 255,255,2595, 255,2 
55, 255,255 , 255,254 254,254 , 254,254 

5064 DNTA234 ‚254,254 ‚252 ,252,292,252,232 
„252,292,252,249,248,248,248,248,248 
5065 DATAZAS, 248,240 ,240 , 240,240, 240,240 
„240 ,240,7224 ,224 ,224 224,224 224,229 
sos6 Datn224,192,192,192,192,192,192,192 
„192,128,128,128,128,128,128,128,1728 
5067 DATAyyarııın# ‚2398,68,68, 78, rs 3 7 1 1 9 0 
,,0 

5070 REM eek DATS-BLICK 3 mitt 
“rr . 

5071 DATA248, 252,254 , 254,254 ,254, 252,248 
,„31,63,127,127,127,127 ,63,31 





5090 REM KHARKKr##* DATA-BLOCK 4 PEREUT TE 


Er 

So81 DATALSF,127,141,34,145,173,32,145,4 
1,128,133,251,169,255,141,34,145,175 
5092 DATA31,145,41,28,24,101,251,133,251 
„173,31,145,41,32,153,252,96,162,0 

5083 DATA1G9,128,18,201,58,240,6,232,224 
„6, 208,244 ,96,254,127,18,169,48, 157 

. 5084 DATA128,18,76,67,18,162,0,1897,128,1 
8,221,138,18,144,9,240,2,176,6,252 

S085 DATA224 ,6,209,239,96,162,5,189,128, 
18,157,138,18,202,16,247,96,0,0,0 

5096 DATAA8,48,48,48,48,438,0,0,0,0,48,48 
„48,48,49,38,166,144,254,0,16,189 

5087 DATAO, 15,201 ,72,240,1,96,202,134,14 
4,240,1,96,169,21,153,144,167,0,155 

5088 DATAO,76,120,162,194,160,234,142,20 
„2,140,21,3,88,96,162,0,167,48,157 

5087 DATAL29,18,232,224,6,208,248,95,162 
„255,189,0,16,201,35,240,69,201,56 

2090 DATAZA0 ,65,201,39,240,61,201,30,240 
„65,201,31,240,61,201,58,240,37 ,201 

5991 DATASF,240,55,201 ,38, 240 ,54,234,234 
„189,255, 16,201,35,240,50,201,36,240 
5092 DATAA&,201,39,240,42,201,30,240,40, 
201,31,240,42,201,58,240,38,201,57 


«707 
327 


<ö> 

AFTF> 
a4r 
350% 


<aor 


«72> 
<1&6> 
<104> 


x2067 


2037 
12355 


<49> 





5093 DATA240,34,7201,38,240,35,202,208,18 
1,96,169,5,157,0,148,76,237,18,169 

5094 DATA4,76,22,19,169,12,76,22,19,169, 
5,157,255,148,76,16,19,169,3,76,40 

5095 DATA19,169,12,76,40,19,238,151,18,3 
2,67,18,162,0,189,128,18,157,22,16 

5096 DATA232,224,6,208,245,96,167,127,14 
1,12,144,238,132,18,32,59,19,32,144 

5097 DATR18,165,0,230,16,162,16,360,0,13 
6,208, 253,202,208,248,238,12,144,76 

5098 DATAB1,19,159,1,133,0,96,32,24,229, 
169,8,141,15,144,32,210,255,169,1 

5099 DATA141,134,2,169,31,141,14,144,120 
„162,194,142,20,3,88,169,205,141,9 

5100 DATA144,9& 


Programmteil 2: 


20 3484979: C=RND{-TD) :POKE144,21 

30 FORI=0T0188: READA: NEXT: GOSUB9500: SYS3 
33 

100 CLR:SHTOTLOO 

120 CLR:M=3: Z=255: POKEO,1:5Y54793 

140 POKE144,21:L=L+1: IFL>STHENL=I:RA=RR+ 
1: PRINT"{CLEAR MHHITEY"=6E0TDELOO 

3141 IFR%Y>ZTHENRA=- 

150 POKES64867 ,. s0ONLSDSUBLO00,1020,1040,1 
060, 1080 

155 5Y54806: PDEE35867 ,45 

190 POKEPP „37: POKEPP+33792,12:PDKEPP-22, 
$7ı PDKEPF+33770,12 

220 PRINTEHRE (19) CHRF (5) *- "EHRFLZBI " 
u nn 11 1 5754752 

221 IFM=. THENFOO 

222. AP=4163: POKEAP „83: POKEAP+33792 ,1 

223 FORI=0TOM-1:POKE4137+1,43:NEXT:5Y547 
23 

>27 FORI=SOTISO:NEXT 

230 5Y54630: IFPEEK (0) <> THENAOO 

232 PRINTCHR$ (19) CHR& (LSB) CHR LIT) ,XAX” 
KLEFT SPACE} "2 5Y54752: A=PEEK (251) 

235 IFRAFITHENSYS4752 

240 IFA=14060T0400 

250 IFA=2860T0300 

260 GOSUBS000: 6010227 

z00 IFPEEK (AP+1)=35THEN230 

z10 IFPEEK (AP+1) =S6THENPOKEAP „52: AP=AP+i 
:60T040006 

311 IFPEEKAP+1}=SBTHENSYS4920:X=X+1: AP= 
AP+1:505UB8000: AP=AP-1 

320 POKEAP „37: AP=AP+1: G0SUB5000: POKEAP „4 
2: POKEAP+33792,1:50T0230 

400 IFPEEK (AP-1}=35THEN230 

410 IFPEEK {AP-1)=364THENPOKEAP „32: AP=AP—1 
: GOTO4000 

All IFPEEK (AP-1) =SBTHENSYS4920: X=X+1: AP= 
AP-1:6D5UB8000: AP=AP-+1 

A20 POKEAP „32: AP=AP-1:605UB5000: POKEAP,4 
1: POKEAP+33792,1: 6070230 

800 PRINTCHRSE (19) CHR$ (158) TAB (8) "SORRY": 
FOKEO,1 

#10 FORI=149T0220STEP.7:POKES5876, 1: NEXT 
:FORI=178T0200: PIKES697&, 1:NEXT 

820 FORI=200T01285TEP-.5: FOKE36876,1:NEX 
T:FOKE36876,0 

&30 M=M-1:POKEAP „32: POKE4137+,32: 607022 
o 

700 IFX<>XATHEN222 

710 5Y5(4940) :POKES&B76,- 

739 TP=4118:POKES6975,.:%=.3J%=INT (18*RN 
Dt1))+1: PRINT" CLEAR DOHN1O3"CHRS (144) 
740 DNJZBOSLUB7SO ,751,752,753,754,755,756 





Compute mib 


2447 
2327 
<116> 
«226> 
“2597 
«114> 


“110> 
225 


«577 


<x335> 
s64> 
<135> 


<34> 
<71> 


<A0> 
<102> 


«214> 


3537 
“377 
«5775 


377 
2427 
x90> 


<151> 
<I> 
2aa> 
x200> 
n227> 
<98> 


<1227 


<220> 
<204> 


"x255> 


x125> 


“50> 


<24a7> 


.£139> 


<208> 
977 
b7> 
<187> 


x197> 
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Pr 
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‚757 ,7598,759,760,761,762,763,764,765,76& 
„767 

745 FORI=0T012: POKE3S8130+1, 1: POKESB140+ 1 
12-1} ,1:FORK=1T070: NEXTK,1 

746 FORI=1T01500:NEXT:GOTOL40 

750 PRINT" {SPACEEFFANTASTIC" = RETURN 

751 PRINT" {SPACE} YOUTSPACEFARETSRACEFTHE 
TSPACEICHAMPION" RETURN 

752 PRINT" {SPACE FOTHERTSPACEIWANNATSPACE 
3PLAY{SPACEFTOD" RETURN 

753 PRINT" {SPAGCE4FYDOUTSPÄCEIARE TSPACEIUN 
IBLE" RETURN 

754 PRINT" ISPACETWAKETSPACEIMECSPACEIUPT 
SPACEFNEXTESPACEFWEEK" RETURN 

755 PRINT" {SPACESYICSPACEIAMISPACEISPEAK 
LESS" RETURN 

756 PRINT" {SPACEIYDURTSPACEISAMETSPACEIT 
S{ISPACE}ENDLESS" RETURN 

757 PRINT" {SPAGEZFTELLTSPAGEIMETSPACEIYO 
UR{SPACE}YSCORE" : RETURN 

758 PRINT" {SPACEIVYOLHSPACEIMUSTISPACEIBE 
TSPACEFATSPACEIWIZARD" 2 RETURN 

759 PRINT" {SPACE#FFREPARETSPACEITOTSPACE 
IDIE" RETURN 

760 PRINT” {SPACEIOZTZIISPACEILOASATSPACE 
+TELEPHONE" =: RETURN 
7&l PRINT" {SPACE3SIWHAT TSPACEIATSPACEISEN 
TENCE" = RETURN 
762 PRINT" {SPACESYEINSTEINTSPACEIPLAYING 
"RETURN 
763 FRINT"{SPACEZFYRUNISPACEFFÜORTSPACEIYO 
UR{SPACEILIFE": RETURN 
764 PRINT"THERE{SPACE}TSTSPACEINOTHINGTE 
PACE?YTOLSPACE> IT" SRETURN 
765 PRINT" {SPACEIFHEAVENTSPAGEIAND{SPACE 
>HELL" RETURN 
766 FRINT"{SPACETIFORTSPACE}AMUSEMENT {SP 
ACEFONLY" S RETURN 
767 FRINT"HAVE{SPACEIATSPACEFSIENTSPALE} 
OF{SPAGEIBUALITY" RETURN 
700 PRINTCHR$ {19} CHR# (144) {SPACE23 YOURT 
SPACEIGAME{SPACEIISTSPACEFDVERTSPACEIYF"3 
:5Y54701 
910 FORI=0T09: FOKE3F7388+1 ‚3: POKES799B+ (9 
2, 3sFORK=11070: NEXTK,I 
911. SYS4780: FORA=15STOOSTEP-1:POKE34878,A 
: FORB=226-ATD1&0-ASTEP—-A 
920 POKES6876,B: FOKES&B7&,0: NEXT=2NEXT:GQO 
SUB7490 
9409 FORI=?TDOSTEP-1:FOKESTEBB+T „0: POKEST 
8989+19-1),0 
950 FORK=1T070: NEXTK , I: POKE37154, 255; CLR 
9&0 PRINTCHR#(147)35Y5833: POKE36878, 31:6 
OTOSOOO 

1000 PRINT"{CLEAR BOHN3 HHITEIHESPACEIEL 
SPACEISTSPACEIR" SPC (BI "ETHPACEIRTSPÄCEI 
{SPACEI#" 3 

1001 PRINT"#" ter tn 

1002 PRINTPHHHHSPACESIHBTSPACESIHHTSPACE 
E31 

1003 PRINT"BISPACETISHTSPACESHSLSPACEZ} 
KISPACEIE”: 
1004 PRINT"#TEZPACETF'**'"TLSPACEZIR 
am 
Ei 

1004 PRINT'"#{SPACESIBISPACERIBISPACEIIHH 
u 

3 


1007 FRINT'HISPACEZFRISPACEZFFISPÄCE ATS 






























































SPACEZIHTSPACESI ER" 
1008 PRINT" 7777" EBPACEIF'" {SPACEZIHIS 
PACE3>' '#"; 


1007 PRINTOHTSPACEIFHTSPACEIOFRTSPACEIFR 
ISPACES#" 3 
1010 FRINT"#ISPACESFFISPALELCHBTGPACESFE 
SSPACEF#"z 


<179> 
<232> 
«23% 
<199> 
<197> 
<85> 
<185> 
<114> 
<B> 
<o> 
<20> 
<a9> 
<98> 
<226> 


“ibä> 


<110> 
<79> 

22125 
<178> 


69> 


<80> 
S1775 
“280> 
“657 


«239> 
“23> 


“19> 


<181> 
«7> 


<90> 
x226> 


22Yr 


programme 


1011 PRINT" 7977 ISPACE2F" ' "IBPACESIHLS 
PACE3Y''#"r 
1012 PFRINT"##"SPC (183 "4", : PRINT"SESPCE 


183 "E54", 
1013 FRINT"#" "tt" Ald" LER AHGPACE2 
»"2 


1014 FRINT"{SPACEFH{SPACESFYHTZPACESFHISP 
ACEIIE" 

1015 FRINT"TSPACESISTSPACEISISPACEZTFFESP 
ACEZIRISPACEZIFTISPACEFHÄISPACETF IF" 

1016 PRINT"{SPACEZY tt tritt tet napp 
=4371:%7=12: RETURN 

1020 PRINT"{CLEAR DOHNZ HHITE SPACEZIRIS 
PACEIRIEFACEIKISPACEHRISPACEHHISPACE RE 
PACEIRKISPACEFRISPACETU" 

1021 FRINT"H' tt tg tt EBPACED 
3#"SPEL1SEI"E" 

1022 PRINT" TSPACEZFFTSPACEFR "SPC (IZI "RIED 
PACEIF" PRINT" TSPACERF "0 iSPACEZF"" 
OT KSPACESTR"SFEELANUH" 

1023 PRINT" {SPACESRAISPACEFEF"SFEL1AN FFIZP 
ACEFRFEPRINT"{SPACEF "tt TISPACESF' "|" 
vi. 

1024 FRINT"ISPACEFRHTSPACETFRRHLZPACEI FR 
#HH{SPACEIFHR" 

1025 FRINT"{SPACEFRFISPACEFRTSPACEF FH CZ, 
PACESTEHFISPACE FRIBPACE FFRISPAGCEZIR 
FEERZERF TEREETT 














. 1026 PRINT,"{LEFTIR#"SPRINT,)"<LERTISE"," 


BC _enat_gggn cn 
1027 PRINT, 2," [UPDIHLDOHN LEFTIBIDOHN L 
EFTY# Berssar a a a ES E e7 4517: Xı= 15 
1057 RETURN 

1040 FRINT" {CLEAR DUHRZ HHITEIRISPACETTR 
{SPACEZIRESPACEIOHRTSPACELIHR  ISPACEH" '" 
TTS TSPACETF'" "8" 

1041 PRINT"#ISPACEFIHLSPACESTHTSPACEST HH 
{SPACEFHRISPACEISTSPACEFRISPACESTEFISPACE 
IIrRRiEPACEZTFEH" 

1042 PRINT"#'""'{SPACE>"""""TISPACEI"''"" 
"id" XSPACEBIHRHTSPACETTE" 

1043 PRINT" {SPACEZIBTSPACEFTFFHFCSPACEZ IK 
ISPACEL3$" 

3044 PRINT" {SPACE2Y 








zu 

1050 PRINFFFET tree ERINTT 
ABLICOI"HIDOHN LEFTIE" 

1051 FRINT"zs322352” {UP LEFTIREDOUNF'L 
UP LEFTIREDOHN:_ 33373 
1059 PP=4377: X%=14: RETURN 

1060 PRINT" {CLEAR DOHNS HHITEI sr: "SPC 
17) "IHHERLSPACETIRISPACEIRISPACET TEC 
SPACEAY 33 33 {PURPLE? 
1061 PRINT"AR##' "CSPACEZISHTSPACEZIH" PR 
INT"HESPACESIHHCSPACEISTSPACEISS" 

13062 PRINTTIHSPACEIRTSPACERTE OL 
SPACESIEU" " TSPALETIBE" 

1083 PRINT"#CSPACEPIETSPACESTERTSPACEHER 








1064 PRINT"#TZPACEZISISPACEZF"''''"'KEPA 
CE 3335 Ss" ISPACESF 
1065 FRINT"ISPACESI#"SPRINT" ISPACESISLSPR 
ACESIERISPACESF" SPRINT" ISPAGESI I" 
1065 PRINTTAB{LIII YRISPAGE?FE"3SPRINT"#"S 
PEI1OIN"STSPACEFRISAACESIR”" 
1067 FRINTTLEFTIU 
ET 

’ 
106070 FP=4502: X%#=11=RETURN 
1080 PRINT"ICGLEAR DOHNZ3 HHITEIR"SPC(20," 
SHISPACEFUTSPACERTRISPACESFRISPACE IH" 
1081 PRINTFF CIE CET UORISPACEZI IR 


E 
1082 PRINT" <SSPACESHIHSPACEZHIHHLZPACEF TH" 


Compute mi 


ger sereegapac 
E6344#": PRINT" ISFACEFIHSTSPACETFSRRISPACE 


=51> 
£20> 
<144> 
«165 
s251> 


<218> 


«121> 


x120> 
<252> 


xF67 


<198> 


x184> 
1557 
“152> 
s181> 


<155> 


«127> 
1877 


“223> 


«1795 
«154> 
x208> 
AG3> 
«x183> 
%115> 
x140> 
x210> 
2477 
29> 
“or 


“2407 
<214> 


s122> 


1657 
> 


39 


rn 


programme 


1083 PRINT" {SPACEZIRISPACEFIHTSPAGELFRFT 
SPACESFRISPACEZIE" . 
1984 PRINT"#ISPAGEF RR’ Las5 aan" 
1085 PRINT" #{SPACEITIHTZRACEI#" 

1084 PRINT"BTSPAGELTFFISPACEI#" 

1087 FRINT"_ BzezserzrzsasrtiSpäAcEr''"#" 
1088 PRINT"HISPACEIBIHE" 
1089 PRINT'#TSPACEIRISPACELEIFR" 

10909 PRINT'"#' {SPACE} 35355333 

1091 PRINT"#HISPACETIETHH" 

1092 PRINT"HFTSPACESFRISPACETRTSPACEBF ER 
u 








1093 EruiNealr SEE EEEEZZZEZEE ZEIT 2 
1094 X%=8: PP=4204: RETURN 


3000 CLR=PRINT”{CLEAR DOHNZ BLACK SPACEZ 


YROBIN{SPALEIAT {SPACE>RAVENWRECK {BOHNE}* 
3005 FORI=0T910: PDKES7932+1,2: POKES7F42+ 
(10-1) „2: FORK=1T050:NEXTK,I 

3010 FORI= 11T0225TEP23 POKES7899+1, 12:POKE 
4096+1 ,3B: POKE35876 ,210+r2#1 

3011 FORK=1T040: NEXTK,I 

3020 FORI=21T00STEP-2:POKES7776+L, 12:FOK 
E4194+1 , 38: POKE36876,210+2%*1 

3021 FÜRK=1TD40: NEXTK , I: POKE3697&,0 

3050 AF="{DOHN HHITE SPACESITHAZELNUT{DOH 
H LEFT4>SOFTWARE (DOHN} " : FORI= 1TOLEN{AF}: 
PRINTMIDF(AF,I,1)3 

3035 FORK= 11050: NEXTE,I 

3040 PRINTIPRINT"£EYAN SPACEPIATSPACEISI 
GNISPACEIOFTSPACEFRUALITY" 





3050 PRINT"{DEHNS REB SPACEZFTOPYRIGHT TE, 


PACEFMEMLIXKWN 

3060 PRINT" {ZOHN SPACEAFRONALDISPACEFKODE 
RBER{DOHNZ WHITE" 

3080 GOTO7000 

Z100 A$="THELSPACEFHAZELNUT CSPACEISOFTWA 
RE{SPAGEITOMFANY" 

3120 Af=asr" {SPACEFPROUDLY{SPACEFPRESENT 
8... . "260SUB6000: GOTO3CO0 

3000 AP=AP-6&4: PÜKEAP „43: POKEAP+33702,1 
4010 FORK=20010220: FOKES4875 ,K: NEXTK=:POK 
ES36876 „0: 6079230 

SCGO0 IFPEEK (AP+22) =32THENGOSUB7000: FOEKE3 
6876 „0: BEOTOS000 

s010 IFPEEKtAP+22)=40THENPOKEAP+22,32 
5015 IFPEEK tAP+22) =S8THENFOKEAP „32: AP=AP 
+1: POKEAP „42: POKEAP+33792,1 

Söil& IFFEEK (AP+22) =59THENFOKEAF ‚32: AP=AP 
-1:FOKEAP ,„A1: POKEAP+33792 1 

020 IFFEEK (AP) < >37 THENRETURN 

5030 GOTO7OO 

6000 AF="{SPACEZZY"+AF+"LCBPACE+” 

6010 FORI=1TDLEN {A$} = PRINT" {HOHE DOHNI?T 
"MID${A$,1,272}:FOKE36#75,170 

60720 8Y544640: IFFEEK (252) 60708040 

6050 FOKES487&,0: RETURN 

5040 FORK=1T070:NEXTK: FOKES5B76,.: NEXTI: 
RETURN 

&100 IFRZ>FITHENGZOO 

6105 At="CONGBRATULATIONS{SPAGE}..... SPA 
CEFYOLES SPACEFHAVETSPACEFEOMPLETEDIEPACE 
THE{SSPACE+FIRST{SPACEFFIVE" 

6110 As=A$+" {SPACEFLEVELSTSPACEFANDISPAC 
E}VOULSPACEIWILLTSPACEHNOWISPACEHBEGIN{S 
PACE>THETSPAGEYSECOND{SPACEYSTABE- u 

6170 At=as+" {SPACESFBUTISPACEYBETISPACEIN 
ARNED{SPACE} - - . . {SPACEHEVERY{SPACE LEVEL. 
LSPACEIHASTSPACE> ITSISPACEFPITSTSPACEINO 
ww" 

&130 GOSUBSOOH: GOTOL1AL 

&200 As="DKEYISPACEISUCKER. - . . - YOUISRACE 
3WON{SPACEFTHISTSPACE}TIMETSPACEFTOOTSPA 
CEF-ISPACEFBUT{S PACE3THE(SPACEFLASTISPAC 
Er [3 



































x187> 
<B0> 
„251> 
“17> 
«27 


x1> 


a4> 
“212> 


x9> 


<156> 
<230> 
<152> 
x242> 
<1i84> 


x149> 
275 


<221> 
<x1747 
x245> 
“5375 

<1353> 
x182> 


<249> 
<79> 


<1847 


447 
“1947 


3? 


“1347 
<134> 


157? 
1627 
“245> 
<Or 

x137> 
“17975 
%200> 
1977 > 
“16973 
+178> 
x181> 


<i66> 


1077 
21635? 


«957 


&2710 At=AFt+"WHOTSPACEFWINSISPATCEIWILLESR 
ACE}BEISPACEIME-. . . „ „ BOISPACEF. „ „ TSRACET 
RY SPACE FYOURSELF {SPACEIÄGAIN" 

E220 Af=As+". . „HATSPACEFHA" :GOSUBRONO: GO 
10141 








7900 FOKEAF 32: AF=SAP+22: POKEAP „44: POKEAP 


+33792 , 13 Z=2-5: IFZ{1SOTHENZ=234 

7010 POKEX687& ,Zı RETURN 

E00G IFR%=- THENRETURN 

8030 ONLGOTIF&00, 7700, #800 ,7700, 9959 
9800 RESTORE:+L4=0: V%=12: FORI=0TOSHIF=HI 
$+CHRS& (PEEK (4746+1) ) zNEXT 

7001 READT,D,F:L%=L4+1 

9010 IFF=iTHENPOKE3AB77 , 250: 60109050 
9020 IFF=?THENFORES6875, 147: 80109050 
9025 IFF=5THENPOKES6B77 „250: 60709050 
9030 IFF=3THENFRKESABTS „195: 60709050 
9940 IFF=4THENPOKE36875, , 183: G0T09059 
9050 POKEIAB76,T: IFLI=SSTHENVZ=14 

F0&0 FORI=VZTOLSTER-0.O13#D:NEXTI 

7061 IFL#A>62THENCLR:SGDTDF000 

9062 GOSUBF400 

9079 A=PEEK (27151) 1 IF (AANDS2I =. THENGOSUB 
9400: PRINT" CLEARF" BOTO12O 

9072 FÜKEA4B, (LYANDTI = PRINT" ISPAGESYHIGH 
ESPACEN "HIS" LLEFTIEF" 3 2 60T09001 

9050 DATA183,10,2,183,20,,183,20,,183,10 
„1,183,20,,183,20,,183,10,2,147,10,,163; 
10,1 

5035 DATA183,10,0 

9090 DATA175,10,2,175,20,0,175,20,0,175; 
10,1,175,29,0,175,20,0,175,10,3,135,10,0 
7095 DATA159,10,1,175,10,0 

7100 DATA1L83,10,4,183,20,,183,20,,183,10 
‚„1,183,20,,185, 30, ,183,10,2,191,10,0 
9105 DATA195,10,1,201,10,0 

9110 DATA175,10,4, 183, 10,0,175,10,5,159, 
10,0,147,5,2,147, 2.5,0 

9120 DATALBS.5,2,183,7:5,1,183,20,0,183, 
10,2,147,10,0,163,10,1,183,10,0 

9330 DATAL75,5,3, 175.7.5,1,175,20,0, 175, 
10,3,135,10,0,159,10,1,175,10,0 

9340 DATA1B2,5,4; 183,7.5,14, 103,20,0,183, 
10,2,191,10,0,195,10,1,201,10,0 

9350 DATA193,10,4,183, 10,0, 175,10,55159, 
10,0,147,4.5,2, 147,4,0 

9400 FORI=0TOS: POKES6874+1,0: NEXT= RETURN 
9470 REM 

9490 REM INTERRUPT 

97490 REM 

9500 DATA120,173,20,3,133,247,173,21,3,1 
33,248,162,92,160,3,142, 20 ,3,140,21 

9510 DATAZ, 169,32,133,2,88,96,162,7,189, 
200,21,24,106, 144,2,9, 128, 157,208 

9520 DATA21,189, 216,21,24,42,148,2,9 1,1 
57,216,21,202, 16, 229, 198,2, 208, ı2 

9530 DATA169,32,133,2,173, 14,144,73,83,1 
41,14,144,108,247,0 

9540 FOR1-83370907: READA: POKEI ,A: NEXT: RE 
TURN 

9200 POKEPP ,32:POKEPP-22,32:3%=INT (5#RND 
arıet 

9505 ONJZGDTD9610,9620,9530 ,9640 , 9650 
9510 PF=4499: 50109640 

9420 PP=41972: 50109660 

9630 FP=4510: 60109660 

7640 FP=4371: 60707450 

7550 PP=4505 

9650 POKEPP „37: POKEPP+33792, 12: POKEPF-22 
‚37: POKEPP+33770,12 

9870 RETURN 

9700 IFAPR=4364 THENH=44957808UB7750:RETUR 
N 

3710 IFAP=4377THENH=4498B: GOSUBY7SO: RETUR 


Compube aniP 


<br 


"<P1> 


x244> 
40> 


x108> 
“1777 


<195> 
<124> 
<126> 
<42> 
LZ26> 
<107> 
17775 
<203> 
<1978> 
<208> 
<34> 
<139> 
<89> 
<91> 
£0> 
«78> 
<147> 
<B7> 
<&l> 
£<104> 
<73> 


<249> 
<121> 


<iäb> 
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938350 


tips & tricks 


N «2325 FOKESB228 ,H: POKE38206 ‚„H: RETURN <242> 
#725 IFAP=4232THENH=4501:505UB9750: RETUR 2900 IFJF<>1THENPOKESBSOS „9: X4=X4-1:39=1 <258> 
N “226 93410 IFAP<>ASLLTHENRETURN <i66> 
97390 IFAP=4245THENH=4504: 505SUB7750:RETUR 3320 POKEZ6879 , 25: POKE36877 ‚170: FORI=OTO 

N “57 > 2000: NEXT: FOKES6B79,8 x107> 
9740 RETURN <192> 9930 POKES6877,.ıL=1L-2:X=. :M=M-1:J9=.:60 

4750 POKEH, 38: PDKEH+33792, 12: X4=X4+1:RET TO149 - goS2% 
URN “il2> 9950 IFAP< >4201 THENSC=SC-33: RETURN “220% 
9900 IFiX/2)=1NT (X/2) THENPOKE4436 ,56:H=5 9940 POKE425& ‚38: FOKESBO48B, 12: POKEA?7O,& 

: GOSUB98305 RETURN »135> 0: FOKE38070 , 1: X4#=X%4+1: RETURN 2905 
7820 POKE4456,35:H=1:605UBFB30: RETURN <128> 





Kopieren des Zeichensatzes vom RAM ins ROM 


10 for io to 22 : read a: poke 850+i,a : next 
20 data 169,255,189,0,128,157,0,28,202,208,247,169,255,189,0,129 
30 data 157,0,29,202,208,247,96 


Mit ’sys 850‘ wird diese Routine aufgerufen. 

Bei fast allen Spielen wird zur Verbesserung der graphischen Darstellung ein neuer Zei- 
chensatz definiert. Das vorherige Kopieren vom ROM ins RAM, das meistens gemacht 
wird, damit bestimmte Zeichen weiterhin normal geprintet werden können, wird erheb- 
lich schneller. Die Ausführungszeit benötigt den Bruchteil einer Sekunde. Sie kopiert 
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den Zeichensatz von 32768-33024 in den Bereich von 7168-7679. 





Lesekopfschoner für das _Lauf- 
werk VG 1541 


Viele geschützte Programme verursachen 
ein Rattern des Lesekopfes; mit.der Zeit 
kann das zu einem falsch eingestellten Le- 
sekopf führen. Mit folgender Befehlsfolge, 
bevor man ein Programm vom Laufwerk 
lädt, kann man den Kopf schützen und 
schonen: 


OPEN 15,8,15 
PRINT?15”’M-W”; CHRS{IOG)CHRSIDICHRSET) 
EHRS(T33):CLOSE 15 


TRACE ganz einfach simuliert 


Mit dem Aufruf 
SYS 56768 


erhält man den Ausdruck von IN mit der 
gerade laufenden Zeilennummer. 
Benutzt man TR als Variable mit dem Wert 
: 56768, kann man mit SYSTR an den ent- 
sprechenden Stellen des Programms im- 
mer einen Hinweis für mögliche Fehler be- 
kommen. 


3/86 


LIST innerhalb eines Programms 
- ohne Programmabbruch - 


Folgende Zeile vor Abruf von LIST macht 
das möglich: 


POKE768,174:POKE769,199: 
LIST (nnnan-nnnnn) 


{nnnnn-nnann) ist der Bereich der geL!- 
STet werden soll, kann aber auch entfal- 
len. Anschließend muß der Zeiger zurück- 
gestellt werden mit: 


POKE 768,139: POKE 768,196 
Kombiniert man die Befehlsfolge auf einer 


Zeile des Programms, erfolgtnach demLI- 
STen kein Abbruch. 






OUT OF MEMORY vermeiden 


Diese Meldung passiert oft, weil vorzeitig 
aus einer Warteschleife gesprungen wird: 
Eine Zeile wie z.B. FOR T=1T02000:GET 
AS:IF S$="” THEN NEXT fordert diese 
Meldung geradezu heraus. Besser wäre 
die Zeile so zu gestalten: - FOR T=1 TO 
2000:T=T+(2000-Tj*PEEK(198):NEXT:PO- 

KE198,0 damit die Schleife geschlossen 
wird. Um die Schleife nach einem be- 
stimmten Tastendruck gefahrlos zu ver- 
lassen, setzt man folgendes ein: T=T- 
(2000-T)*(PEEK{197}=X) , wobei X dem Ta- 


stenwert aus der Tastaturmatrix ent- | 


spricht. 


Unterprogramme_mit 
Namensaufruf 


Durch die Art wie GOSUB nach dem Einte- 
sen der Zeilennummer funktioniert - es 
wird als nächstes Zeichen immer nur ein 
Doppelpunkt gesucht - ist es ohne weite- 
res, und vor allem ohne REM, möglich die 
Bezeichnung des Unterprogrammes mit 
aufzunehmen, indem dieser mit vorange- 
stelltem Komma nach der anzuspringen- 
den Zeilennummer steht, z.B. 

10 GOSUB 10000,DATENLESEN: 
nächster Befehl 


Er EEE 


VIAB Ersatz 


20 FOR R=1 TO 23:A$=A$ +"ersr dn”: 


Basic V 2.0 kennt den Befehl VTAB nicht; | VTABS{RJ=A$: NEXT 


mit etwas Stringmanipulation läßt sich 
VTAB leicht simulieren: 


10 DIM VTABS(23):A$ ="home”: 
VTABS(0J>A$ 


Compuhe mib 


Der Aufruf von VTAB$(R) simuliert jetzt 


VTAB. Durch entsprechende Änderungen 
der beiden Programmzeilen läßt sich auch 
HTAB simulieren. 
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werkstatt 





Autonumber - ein nützliches Utility in Maschinensprache, das dem Basicprogrammierer das 
lästige Eingeben der Zeilennummern beim Programmieren erspart. 


Sie brauchen dazu nur die gewünschte 
Schrittweite zu wählen und eine Zeile vor- 
zugeben. Die nächste Zeilennummer wird 
- dann automatisch vom Programm ausge- 
geben. Da das Programm vollständig in 
Maschinensprache geschrieben ist, merkt 
man von seinem Ablauf eigentlich gar 
nichts. Abgedruckt ist der Basic-Loader 
der Maschinenroutine. Geben Sie diesen 
ein und speichern ihn zur Sicherheit ab. 
Nach dem Start mit RUN dauert esein we- 
nig, bis die Datawerte eingelesen sind. Ha- 
ben Sie beim Abtippen der Datawerie ei- 
nen Fehler begangen, teilt das Programm 
Ihnen dieses mit. Sie müssen dann die 
entsprechenden Zeilen noch einmal über- 
prüfen. Ansonsten meldet sich. das Pro- 
gramm mit der Abfrage „Abspeichern (J/ 
N) ?". Kassettenanwender müssen hier 
leider nein (N) eingeben. Da die Routine im 
Kassettenpuffer liegt, ist es ohne weiteres 
leider nicht möglich, diese auf Kassette 
abzuspeichern, Kassetienanwender müs- 
sen also jedesmal, wenn sie mit dem Utili- 
ty arbeiten wollen, den Basic-Loader ein- 
laden und starten. Auch jede Kassetten- 
operation zerstört das Programm; es muß 


SUENFOUPBUN"O 


danach neu eingeladen werden. Zudem 
muß die Autonumber-Routine vor jeder 
Kassettenoperation des-aktiviert werden 
{wie wird noch beschrieben), da sich der 
Computer sonst aufhängen kann. Besser 
ergeht es da den Diskettenanwendern. 
Diskettenoperationen greifen nicht auf 
den Kassettenpuffer zu, folglich bleibt der 
Ablauf der Routine unbeeinflußt. Disket- 
tenanwender können die Routine als rei- 
nes Maschinenprogramm auf Diskette 
speichern; es belegt dann nur einen Block 
und das lästige Einlesen der Datas entfällt. 
Geben Sie zum Abspeichern also einfach 
ja (J} ein, nachdem Sie eine Diskette ein- 
gelegt haben. Es wird dann ein Pro- 
grammfile mit dem Narnen „AUTONUM- 
BERCODE* erzeugt. Eingeladen wird die 
Routine dann mit LOAD"AUTONUMBER.CO- 
DE”,8,1. Danach muß NEW eingegeben 
werden, um alle Basicpointer zu normali- 
sieren. Initialisiert wird die Routine mit 
$YSB28,x. Dabei ist x ein Zahlenwert zwi- 
schen 0 und 65535 und gibt die ge- 
wünschte Schrittweite an. Geben Sie nun 
eine beliebige Basic-Programmzeile (Zei- 
lennummer + Text) ein, gibt die Routine 


automatisch die nächste Zeilennummer 
aus. Sie brauchen dann nur noch den ge- 
wünschten Programmtext anzuhängen 
und mit RETURN die Eingabe abzuschlie- 
Ben - es wird wiederum die nächste Zei- 
lennummer ausgegeben. Um die Routine 
zu des-aktivieren, geben Sie nach Ausga- 
be einer Zeilennummer keinen Text ein, 
sondern schließen einfach mit RETURN 
ab. Die Routine schaltet sich dann selbst 
ab, kann jedoch mit $YS828,x wieder ak- 
tiviert werden, solange in der Zwischen- 
zeit keine Kassettenoperation durchge- 
führt wurde, kein RESET erfolgt ist oder 
der Kassettenpuffer auf eine andere Weise 
gelöscht worden ist. 

Für Interessierte ist in das Programm ein 
kommentiertes Assemblerlisting inte- 
griert. Der abgedruckte Basic-Loader ent- 
stand auf einem VC-20 mit 16kByte-Er- 
weiterung. Es kann also sein, daß Sie mit 
gar keiner Ausbaustufe die REM-Anwei- 
sungen weglassen müssen. Sie sind je- 
doch für den Programmablauf völlig unre- 
levant und die Maschinenroutine selbst, 
die recht kurz ist, läuft auf jeder Ausbau- 
stufe, 
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REM 
REM * * 
REM * AUTDNUMBER-ROUTTINE FUER DEN COMMODORE WE2O * 
REM * * 
REM * EELEGT WIRD DER SFEICHERBEREICH VON BZB BIS 943 * 
REM #* * 
REM * SYNTAX: 5Y5828,5CHRITTWEITE * 
REM # . ö : * 
REM # WRITTEN 1985 EV WALDEMAR RARZ * 
REM RRHRIIRHRIHRIBIRIRIISBIHIHIBIIISIHRIHIHIHIIRIHHIIHRISHHHIBIRSEIIIIHIIIFTRHHTITETHINNERRETENE 

19 » 

ıi : 

10000 DATA ?70,FD,CE :REM JSR $CEFD s 7-> CHEKCOM 

10902 DATA 20,8A,CD :REM JR ZCDBA 3 ——> FRMNUM 

10004 DATA 20,F7,D7 :REM JSR £D7/F7 3 ——> GETADR . 

10005 DATA A5,14 REM LDA #14 ; SCHRITTWEITE HOLEN 

10008 DATA A4,15 :REM LDY #153 3 

10010 DATA :REM 5STA $FB ; UND {N DER ZERO-FAGE ABSPEICHERN 


85,FB 


#2 


Gompube eni 


386 





10012 
109014 
1001& 
10018 
10029 
10022 
10024 
10026 
| 10028 
‚10030 
10032 
10034 
10036 
‚10038 
10040 
‚10042 
‚10044 
10046 
| 10048 
10059 
10052 
10054 
10056 
10058 
10060 
10062 
‘10044 
10066 
10068 
10070 
10072 
10074 
1007& 
10078 
10080 
10082 
10084 
10086 
10088 
10090 
‚10092 
10094 
'1009& 
10098 
10100 
10102 


10200 
15210 
10220 
10230 
10240 
10250 
10280 
10270 
10280 
10270 
102997 
10300 
10305 
10310 
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DATA 84,FC :REM 
DATA A9,60 ':REM 
DATA A0C,03 REM 
DATA 85,02,03 :REM 
BATA 80,08,0% :REM 
DATA 4C,74,04 :REM 
DATA 9,05 :REM 
DATA A0,C4 zREM 
DATA DO,Fi sREM 
DATA 20,50,05 :REM 
DATA 88,7% : REM 
DATA 84,7B : REM 
DATA 20,73,00 :REM 
DATA AA ; REM 
DATA FO,FZ :REM 
DATA A2,FF REM 
DATA 86,34 :REM 
DATA 90,06 : REM 
DATA 20,79,C5 :REM 
DATA 4C,E1,C7 :REM 
DATA 20,6B,C9 :REM 
DATA A6,7A : REM 
DATA BD,00,02 REM 
DATA F0,D7 :REM 
DATA 18 REM 
DATA AS,FE REM 
DATA 55,14 :REM 
DATA Afı :REM 
DATA A5,FC ! REM 
DATA 65,15 REM 
DATA 85,42 :REM 
DATA 85,63 : REM 
DATA A2,70 REM 
DATA 38 REM 
DATA 20,49,DE :REM 
DATA 20,DF,DD :REM 
DATA A2,FF : REM 
DATA E8 : REM 
DATA BD,060,01 ıREM 
DATA 97D,77,02 ıREM 
DATA DO,F? : REM 
DATA A9,20 : REM 
DATA 70,77,02 :REM 
DATA E8 :RkEM 
DATA 84,06 REM 
DATA 40,9F,C4 :REM 
E RESTÜRE ; P=ü 
2 FOR I = 828 TO 
3 READ A$ 

: GOSUB 10500 
H PF=rFr+rf 

: FIKE I „A 

ı NEXT 1. 

H IFF= 


FRINT"LIHNEN IST BEIM ABTIP-": 


5TY 
LDA 
LDY 
STA 
STY 
JMF 
1.DA 
LDY 
ENE 
JER 
STX 
STY 
JSR 
TAX 
BEU 
LDX 
STX 
BCE 
JSR 
Jmr 
JSR 
LDX 
LDA 
BEU 
CLO 
LDA 
ADE 
TAX 
_DA 
ADE 
STA 
STX 
LDX 


‚SEC 


JSR 
JSR 
LDX 
INX 
ı.DA 
STA 
BNE 
LDA 
S5TA 
INX 
STX 
JMF 


9343 


FC 
#F&50 
#503 
0302 
OI03 
+C474 
#383 
#E04 
#0351 
ZE5&0 
37 
£7B 
90753 


SOFAO 
#&FF 
FIR 
20377 
20573 
£C7rEi 
0968 
#7A 
F0200,X 
F035A 


$FB 
#14 


SFC 
#15 
E ya 
#63 
#90 


SDC47 
#DDDF 
EFF 


£0100,X 
$0277,X 
KOEFC 
#F20 
#0277,X 


$C4 
$C49F 


15173 THEN 10400 


PRINT"PEN DER DATAZEILEN EIN", 
FRINTP’FEHLER UNTERLAUFEN!" 


Gomputhe mi 


je" T Zu | Be" 7 u" 7 er T Br 3} 


a ET EEE 


o-. a en 


BL Be" 7 Be" 1 Er 7 9 7 


7 Bu. I BE 73 


I 1 u" 1 SU 1 BE 7 Bel 1 Bu Sue] SE= 1 2° 23 


ji Bee 7 ze 1 u? Be 1 Sr 


werkstatt 


BASIC-WARMSTART-VEKTOR 
AUF EIGENE RDUTINE UMBIEGEN 


--+ READY-MODLS 
EINSPRUNG ZU DES-AKTIVIEREN 


BASICZEILE IN EINGSABEPUFFER HOLEN 
CHRGET-FOINTER AUF EINGABEPUFFER 


--> EHRGET NAECHSTES ZEICHEN 
WEITER WARTEN, WENN PUFFER LEER 


FLAG FUER DIREEKTMOBUS SETZEN | 
ZIFFER, DANN ZUR EIGENEN ROUTINE 
BASICZEILE IN INTERFRETERCODE WANDELN 
ZEILE AUSFUEHREN 

ZEILENNUMMER HOLEN 

NAECHSTES ZEICHEN AUS PUFFER HOLEN 


FUÜFFER LEER, DANN DES-RETIVIEREN 
SONST SCHRITTWEITE ADDIEREN 


= NAECHSTE ZEILENNUMMER 


==> INTEGER IN DEN FAC SCHREIBEN 
--> FAG NACH ASCII WANDELN 
NAECHSTE ZEILENNUMMER IN DEN 


TASTATURPUFFER SCHREIBEN 


PFOINTER SETZEN GEDRUECKTE TASTEN) 
AKTUELLE ZEILE EINFUEGEN 


10315 
106320 


PRINT"UEBERPRUEFEN SIE BITTE"; 
FRINT"NOCH EINMAL DIE ENT-"; 
10325 PRINT"SPRECHENDEN PROGRAMM-"; 
10330 PRINT"ZEILEN'! "SEND 

10399 ; 
10400 PRINT"LSIE HABEN ALLE DATA-"; 
10405 PRINT"WERTE RICHTIG EINGEGE-"; 

10410 FRINT"BEN. WENN SIE MIT DIS-"; 

10415 FRINT"KETTE ARBEITEN ,KOENNEN"; 

10420 FRINT"SIE DAS PROGRAMM ALS"; 

10425 PRINT"REINE MASCHINENROUTINE"; 

10430 PRINT"ABSPEICHERN. ES BELEGT"; 

10435 FRINT"IN DER FORM NUR EINEN"; 
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FRINT'ERR SYSB2B,SCHRITTWEITE" 


16440 PRINT"BLOCK. FUER -KASSETTEN-"s | 10490 
| 10445 FRINT"ANWENDER BESTEHT DIESE"; | 40495 END 
| 10450 PRINT"MOEBLICHKEIT NICHT!" 104997 ı 
i 10455 PRINT"BAESPEICHERN {J/N} 7" 10500 AF=LEFTFIAF,Z) 
10460 GETGF: IFGF=""THENLO450 10510 Al=ASC{LEFTECAF, 1233: 
10475 FOKE2S1 „50: POKE252,3:POKE781 ,182 10539 A2=A2-48: IFAZ>FTHENAZ=A2-7 1 
10480 POKE782 ,3: POKE780,251:5Y5645496 10540 A=16+#Ai+Az 
10485 PRINT"KAKTIVIERT WIRD DURCH: " 10550 RETURN 


„Mini-Karate“ 


Sie, als VG-20-Fan sind zum Karateka 
avanciert und stehen auf der Matte einem 
computergesteuerten Gegner gegenüber. 
Ziet des Spieles ist es, den Kontrahenten 
möglichst oft zu Boden zu zwingen. 

Zur Realisation dieses Vorhabens verfü- 
gen Sie über ein Schlagreportoire, das aus 
drei Varianten besteht: Karatekick (F3), 
Magenhieb (F5) und Haken {F7). Zudem 
kann Ihr Kämpfer nach rechts (Semiko- 
Ion) und links (Doppelpunkt) ausweichen. 
Jeder Treffer, den Sie oder Ihr Gegenüber 
einstecken müssen, kostet 


‚Auch der VC-20 (Grundversion) 
liefert seinen Beitrag für die Renaissance 
der asiatischen Kampfsportarten 


Lebenspunkte: Karatekick = 3 Lebenspunkte 
Magenhieh = 2 Lehenspunkte 
Kaken = 1 Lebenspunkt 
„Nach dem Kampf mit dem Meister ister vollkommen verdreht!“ 
Können aufbieten. Denn selbst unsere er- 
fahrenen Programmierer waren des öfte- 
ren „am Boden zerstört“. 


Am unteren Bildschirmrand befindet sich 
eine Lebenspunktanzeige: Links ist der ei- 
gene Punktestand angegeben, rechts der 


des Gegners. 
Wenn Sie den asiatischen Karatemeister 
besiegen wollen, müssen.Sie Ihr ganzes 
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© CLR=:PRINT"{CLEAR WHITE}" 3 = PFOKES6979 ,8: 
PDKE36878,15 

1 PRINT"{IRVSON SPACEBIMINTTEPACEI-TSPÄCE 
S0ı"; 

2 PRINT"IRYSON SPACESF'KISPACEIALSPACEIR 
{SPACEIATSPACEITISPACEIE IBPACE2TY" 

3 FRINT"{RVSON SPACEFFBYTSPAGEF: ISPACEZI 
2"2 . 

4 PRINT"{RVSON SPACESYT.KLEINERT {SPACEZE 
zu 

5 PRINT"{RVSOFF RIGHT2FSTELERUNG {SPACE}: 
":PRINT"IDOHN SPACE? RVSONFFELRVSDEFF-KA 
RATEKICK" 

& PRINT" {RVSONSLERWSOFFIC-{SHIFISPACEI— > 
{RUSONF JERVSOEF. SPACEI—-IUP LEFTIFTOOHN R 
VSONIFSCRVSOERF -MAGENEOX" 

7 PRINT" {SPACEBY-{DEHN RVSDNIFTLRVSOFEI- 
HAKEN" 

8 PRINT" {DOHNZ SPACEIPRESSTSPACEFATZPACE 
3IKEY{SPACE+TOTSPACE?BEGIN" : POKE1YB,0:WAI 
T198,1 

9 FORT=7580+8*22T08185: POKET,32:NEXT 

10 S$t1}="{RIGHTIOTCDOHN LEFT2> WIDOHN L 


i 


EFT3 SPACEH | ":5$23=" iRIGHTI STDOHN LEFT 
ZH TDOWN LEFT3I" 

11 SEIFI="LRIGHTICIDONN LEFT2IFR-TDDHN 
EFT2H | "3S$14) =" {RIGHTS OTDOHN LEFT2YM 
DEHN LEFTZI N" 

12 SFIS)=""CDOHN LEFTSCBTTDOHN LEFT2} N" 
TEFCA)="IDOHN RIGHTFS ADOMN LEFTIION_" 
15 E£St1)="{RIGHTFOCDONN LEFT2IE CDOHN L 
EFT33 | "S6$C2)="CRIGHTY-ÄDOHN LEFTZI OT 
DOWN LEFTZ? V"ıCS13)=" {RIGHTIC{DOHN LEFT 
ZI TDOHN EEFT3S, I" 

14 E$t4)="CRIGHTIOIBAHN LEFT2I WNTDOHN L 
EFT3} "SC (5) ="{RIGHT2TOOHN LEFTII ER 
{DOHN LEFT3IF Vıch(&)="{DOHN)_{ODOHN LEF 
T23_o" 

IS Bf="{RIGHT223" : Akte" [DOWNZI}" 

i& FORT=8054T08185: POKET, 150: NEXT PRINT" 
SHOHEF"LEFTE (AS, 19) 5 "CRIGHT4 RVYSGNHLEBEN 
SPUNKTEISPACEI = {HOHE RUSOFEF}" 

17 X=3: Y=15: 5P=25: CP=50; SOSUB295 


L 
Fr 


Gompuhe mib 
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17 FORT=7690+8422707680+16*22STEP27:POKE FTEIB$,X}388 (5A) <58> 

T,150:POKET+21 „180: NEXT <79> 155 IFX+1=VORX+2=YTHENGOSUBL7O:GOTO1BO <243> 

20 PRINT" {NOHE}" AS" CRWSONF"ZSP"ILEET SP 160 FORT=1T0200: NEXT: PRINT" CHOHEI"LEFTSt | 

ACEISY"ZCPS"{EEFT SPACE HÖHE RWSOEFF"sGF j A# 14) LEFTFIBE,X)S# (7) 1 5H=0: 6OSUB2975: 60T 
|. GRZ=1TO100: NEXTZ <94> 060 z2> 

24 IFRND{l)<.STHENGO <73> 165 GOSUB120: PRINT" CHOHME}"LEFTS(AS,I1A)LE 
25 GETUS: IFUF=""THENGO “164 FT${BF,Y)C$HLOCA) :6BSUBL170:60T0200 <104> 
30 IFlig="2 "THENGDSUB9S: X=X-1: GOSUB1OS <ii> 170 FOKES6877 , INT (RND 1)=40)+200 21B4> 
s5 IFUS="; "THENSOSUBFS: X=X+1160SUB105 <&> 175 FORT=15TO0STEP-. 8: POKES6878, TıNEXT:P 

: 40 IFUSF="{F3F"THENSH=1:5A=2 <239> OKES4877 „Os RETURN ' <20r | 
45 IFU$="{FS}"THENSH=1:50=3 <i1> 180 FORF=1T02: PRINT" CHONEF"LEFTS(AF 1A) L | 
50 IFUS="XF7}"THENSH=1:50=4 <395> EFTEIBSE,VsEE I <134> 
55 IFSH=1THEN1SO <150> 185 PRINT" CHONEI"LEFTF AS IHLEFTSCRBE,Y) 

&0 IFER>OTHEN145 . <4185> sC#t4+T) <131> 
65 IFY-i=X0ORY-2=XTHENCH=1: CA=INT{RNDC1}® 187 FORZ=1TG2Z00:NEXTZ,T <74> 

 3)+2 <1895> 190 PRINT" {HOHEI"LEFTEIAF, IS) LEFTS BE, X) 

706 IFCH=1THEN165 <196> 5#(1) _ “10> | 

: 75 GOSUB120=8=5GN 1 {X+Z23-Y}: YV=Y+ß: GOSUB1S 195 CP=CP-(5-5A) sER=10:6070225 <132> | 
Ö «123> 200 FORT=1T02: PRINT" {HOREI"LEFTE(AF ,L4IL 
80 IFRND{1)<.STHENIFY-1=XORY-Z=XTHENCH=1 EFTFCOBF,X)SS$ (TI) x9} 

: 2CA=INT{RND (135) +2 <242> 205 PRINT" CHOHEY"LEFTF(AF, LS) LEFT$tBS,X) 

: 85 IFCH=1THEN165 <201> 35F(4+73 “213> 
90 FORZ=1T0200:NEXT:GOTO?ZO <203> 207 FORZ=1T0200: NEXTZ,T <94> 
975 PRINT" CHOHEF"LEFTSE (AS, IA)LEFTSCBS, X) 5 210 PRINT" CHOHE3"SLEFTSIAF, IA) HLEFTFERS, 

: SS17I3 "CHOHEY" <187> Yıcstı) z165> 
100 PRINTLEFT& AS, IA) LEFTSIBS, VIII) FE 220 SP=S5P-(3-CA) 2219 
HÖHE "RETURN j <206> 225 IFSP<10RCP<1THEN23S <111> 

- 105 IFX<2THENX=2 2703 230 SH=0: CH=0: FORT=1T91000: NEXT: GOSUBJYS: 

110 IFX>ISTHENX=15 <54> GGSUB 120: GOSUB295: POKE178,0:50T020 x206> 
115 PRINT" CHOMEI"LEFTS (AS, 1A) LEFTS(B$,X) 235 PRINT"{HOHME DOHN? RIGHTYDER{SPACEISI 

55£ (1) :RETURN . <157> EBGERESPACE3"; “8973 
120 PRINT" CHOMEF"LEFT$(AF, 14) LEFTS(BS,Y) 2409 IFSP<1THENPRINT"IST{ISPACEIVC- 20" 269> 
‚C$(7) <22> 245 IFEP<1THENPRINT"SIND{SPACEYISIE" <50> 
125 PRINT" CHOHE}"LEFT$(A$ 14) LEFT$(B$,X ' 250 PRINT" {DOHNS>"3 SPC (4) 3 "PRESS{ISPACEFA 
I;5$(1) RETURN <220> ASPACEIKEY" <236> 
139 IFY<ZTHENY=2 <103> 250 POKE198,0:WAIT19B,1 “1475 
135 IFY>ISTHENY=15 <88> 270 RUN 21537 
140 PRINT" CHOHE}"LEFTS (AS, 14) LEFTSBF,YV) 2953 PRINT" CHOHEF"LEFTF CAS, 14) LEFTSCBE,X) 

3C# 1) RETURN <120> SFt1) A225> 
145 GOSUB120: Y=Y+1: 50SUB130: ER=ER-1:50TO 300 PRINT" CHOHEF"LEFTE{AF,IMHLEFTFCHE,V) 

20 <56> C${1):RETURN 2204> 


150 GOSUB9PS: PRINT" CHOMEF"SLEFTS (A$ ‚ia)LE 


6502-Assembler-Kurs 


Teil 10 





LSR Shift Right One Bit (Menory or Akkumulator) [Verschiebe eine Speicherstelle oder den Akkumulater um 1 Bit nach rechts) 





Der LSR-Befehl gehört zu den „Bit-Manipulations“-Befehlen und wird deshalb oft in Verbindung mit relativen Sprungbefehlen ver- 
wendet. Eine weitere Verwendung findet dieser Befehl bei der Durchführung mathematischer Funktionen, Durch die Ausführung die- 
ses Befehles wird der Inhalt des Akkumulators oder einer adressierten Speicherstelle um ein Bit nach rechts verschoben. Dies bedeu- 
tet, daß nach der Ausführung Bit 7 zu Bit6, Bit6 zu Bit5 usw. verschoben wird. Das letzte Bit (Bit 0) wird in das Carry-Flag geschoben. 
War dieses Bit also auf 1 gesetzt, wird das Carry-Flag ebenfalls gesetzt, ansonsten wird es gelöscht. Durch die Rechtsverschiebung 


wird von links immer ein gelöschtes Bit nachgeschoben. 















HEX 





Adressierung | Bytes Syntax 


46 Null-Seite (direkt) 2 LSR adar 76543210 
4E Absolut (direkt) 3 LSR addr " NV BDIZC. 
56 Null-Seite indiziert mit X 2 LSR addr, X — 
5E Absolut indiziert mit X 3 LSR addr, X 0 xx 
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ji Beispiel: 

| 100 PRINT -$BDCD ; Routine zur Zahlen- 
ausgabe 

105 BSOUT = $FICA 

130 ZAHL = 832 ‚Variable 

120 ; 

+30 START LDA 832 ;lade Akku mit Zahl 
140 JSR ZPRINT ;Zahl ausgeben 

150 LDA 832 ;lade Akku nochmal 

160 LSR ‚verschiebe um 1 BIT 

170 JSR ZPRINT ;ZAHL ausgeben 

180 LDA 832 ‚lade Akku nochmal 

190 LSR 

200 LSR 

2i0 JSR ZPRINT ;Zaht ausgeben 

220 ATS 

230 ; 

240 ZPRINT TAX ;Akku nach X übertragen 
250 LDA #0, ;High Byte löschen 

260 JSR PRINT 

270 LDA #13 ;Zeichen für Zeilenvor- 
schub 

280 JSR BSOUT 

290 RTS 


Erklärung des Beispiels: 

Zum erstenmal benutzen wir in unserem 
Beispiel zwei „ROM-Routinen“ zur Abkür- 
zung unseres Programmes. Als ROM-Rou- 
tine bezeichnet man ein Maschinen-Un- 
terprogramm, welches eine bestimmte 
Aufgabe erfüllt und danach zum Haupt- 
programm zurückspringt. Wie die Be- 


zeichnung „ROM-Routine“ schon sagt, 
liegt dieses Unterprogramm im ROM 
(Festwertspeicher) und ist damit sofort 
| nach dem Einschalten des Rechners nutz- 
bar. Die hier verwendeten Routinen wer- 
den normalerweise vom Basic-Interpreter 
des 664 genutzt, um Zeilennummern bzw. 
Zeichen auf dem Bildschirm auszugeben. 
Die Routine PRINT gibt eine gerade Zahl 
auf dem Bildschirm aus, dabei muß sich 
das High-Byte im Akku und das Low-Byte 
im X-Register befinden. Die Routine 
BSOUT gibt ein beliebiges Zeichen auf 
dem Schirm aus. Wir verwenden dies, um 
einen Zeilenvorschub zu erreichen. Wir 
werden später noch öfter auf diese und 
auch andere ROM-Routinen stoßen und 
diese dann etwas genauer betrachten. 


Ebenfalls neu in unserem Beispiel ist der 
Befehl TAX. Dieser Befehl überträgt den 
Inhalt von dern Akkumulator nach dem X 
Register. In unserer alphabetischen Aufli- 
stung wird noch näher darauf eingegan- 
gen. 


Nun zur Funktion unseres Programmes: 
Als erstes wird der Akku mit dem Inhalt 
der Speicherstelie 832 geladen. Wir ha- 
ben absichtlich diese Speicherstelle ver- 
wendet, da sich der Inhalt mittels Basic- 
POKE Befehl schnell ändern läßt und so 
mehrere Tests durchführbar sind. 

Nachdem dieser Wert in den Akku gela- 


den wurde, wird dieser auf dem Schirm | 


ausgegeben. Nun wird der Akku noch- 
mals mit unserer Zahl geladen, jedoch 
wird diesmai der Akkuinhalt durch den 


Befehl LSR manipuliert und das Ergebnis 1 
ausgegeben. Das Gleiche wird noch ein- 1 
mal mit zwei aufeinarderfolgenden LSR- | 


Befehlen durchgeführt. 


Nach der Eingabe unseres Beispieles kön- 
nen wir folgende Tests durchführen: 


POKE 832,200:5YS 49152 <returm> 
200 
100 

50 


POKE 832,60:SY5 49152 <return> 
60 
30 
15 


POKE 832,12:SYS 49152 <return> 
12 

6 

3 


Wie aus den Beispielen zu erkennen ist, 
iäßt sich der LSR-Befehl auch sehr gut 
zum Teilen von Zahlen verwenden. Eine 
andere Anwendung wäre beispielsweise 
der Test von Bit 0. Durch die Befehlskom- 
bination LSR und BCS läßtsich diese sehr 

schnell bewerkstelligen. 





Einer der hilfreichsten Befehle ist der NOP- 
Befehl. Ermacht nämlich garnichts und ist 
mit dem Basic-Befehl REM vergleichbar. 
Oft muß ein älteres Maschinenprogramm 
verändert werden, wobei einige Lücken 


HEX 
EA 


Adressierung 





Impliziert 





Literatur: 


NOP No Operation {keine Ausführung) 





entstehen können. Die Herausnahme ei- 
nesSprungbefehles würde beispielsweise 
3 Byte freilegen. Diese Lücken Können 
nun mit drei NOP-Befehlen aufgefüllt wer- 
den. Geschieht dies nicht, kann der Micro- 


Bytes Syntax 
1 NOP 


6502 Microcomputer-Programmierung, Peer Heuer, Hofacker Verlag 
6592 Programmierung in Assembler, Lance, A, Leventhal 
64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502/65c02, Christian Persson, Heinz Heise Verlag 


46 


Sompute mi 


prozessor in einen undefinierbaren Zu- 
stand geraten und nur durch Aus- und | 
Einschalten wieder in Gang gebracht wer- 
den. 


76543210 

NV BDIZG 

0 “X 
Beispiele: 
100 LDA #1 ;Zeichencode für A 


110 NOP ;keine Operation 
120 NOP ;keine Operation 


130 NOP :keine Operation 


140 STA 1024 ; Bildschirmanfang 
150 ARTS 
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„Smily“ 


Das Programm „Smily“ wird mit RUN ge- 
. startet, Nach dem Erscheinen des Titelbil- 
des beginnt die Musik zu spielen. Durch 





Drücken einer Taste können Sie eine 


: Unterschiede innerhalb der 3 Spielstufen: 


‚Ein Labyrinthspiel frei nach dem Motto: „Fressen oder gefressen werden!“ 


oder in gut Deutsch 


Spielstufe auswählen: 

1. Anfänger (für Unerfahrene) 

2. Könner (für geüblere Spieler) 

3. Profi (eine besondere Variante des Spiels} 


Labyrinth 


Reservesmilies Spieltempo Herzchen 
- Anfänger: 4 langsam 10 sichtbar 
Könner: 2 mittel 8 sichtbar 
Profi: 2 schnell 6 unsichtbar 


, Wenn Sie die Profi-Spielstufe erreicht ha- 
: ben, ist das Labyrinth nur für kurze Zeit 
_ sichtbar. Wenn Smily gegen eine Wand 
- läuft, blinkt es kurz auf. 
: Nach dem Aufbau des ersten Labyrinths 
_ erseheint Smily grinsend in der unteren 
Hälfte des Irrgartens und wartet nur dar- 
auf von Ihnen gesteuert zu werden. (Die 
: Steuerung erfolgt mittels Joystick 1 oder 
der Cursortasten). Smily kann sich nach 
oben und unten bewegen, sowie nach 
| rechts und links, eine diagonale Fortbe- 
' wegungsweise ist ihm jedoch nicht mög- 


1. Teil; 
10 " Ladeprogramm fuer Smily 
20 ° copyright 1985 by 
so’ MEDI - Software 
40 " M. Meier % D. Disch 


50 SYMBOL AFTER 32 


&0 MODE 1:INK O,1:INK 1,24:INK 2,20: INK 
S3,&:BORDER 1:PAPER O:PEN 1:CLS 


70 CLS:PRINT 


lich. Je mehr Punkte Smily verschlingt, 
desto höher ist die Gutschrift, die Sie er- 
halten. Die Punktejagd gerät - wie nicht 
anders zu erwarten - zu einem gefahr- 
bringenden Unterfangen, denn unser Held 
wird vom Gespenst Leo auf das eifrigste 
verfolgt, Leo ist wesentlich schneller als 
Smily und so für dessen Leben eine ernste 
Bedrohung. Natürlich hatsich unser Autor 
einen Ausweg für Smily einfallen lassen. 
Dieser besteht aus im Labyrinth versteck- 
tem Lebkuchen. Wenn Smily eine dieser 
Leckereien verschlingt, ister für kurze Zeit 


CHECK V1:PRUEFSUMMEN: 


programme 





„Der Lächler“ 
auf dem GPC-464 


selbst in der Lage, seinem Feind den Gar 
aus zu machen. Solange Smily seine 
Wunderkraft besitzt, blinkt das Labyrinth. 
Gelingt es Smily, seinen Widersacher zu 
fressen, so bekommen Sie hohe Zusatz- 
punkte. Es bedarf aber einiges an Einfalls- 
reichtum, um Leo zu erwischen. Sobald 
das Labyrinth aufhört zu blinken, kehrt 
sich das Ganze um und Smily ist wieder 
der Gejagte. Falls Smily erwischt wird, 
stelit er sich aufden Kopf und läuft vor Wut 
iila an. Nun muß ein Ersatz-Smily her. 
Am unteren Bildschirmrand befindet sich 
eine Anzeige für Ersatzsmilies und die er- 
reichte Punktzahl. Sind die gesamten Smi- 
lies verbraucht, ist das Spiel beendet. 
Wenn Sie ein neues Abenteuer mit Smily 
und Leo erleben wollen, drücken Sie bitte 
die Joystick-Feuertaste oder COPY. Nach 
einer kurzen Pause erscheint dann wieder 
das Titelbild. Andernfalls drücken Sie bitte 
„E" für Ende. 





C 
Fecksummen 


ZEILENNR.z SUMMEN für } 
10- 20: 49072 } 
30- 40: 35338 en 
350- #40: 35135 1 Teil. 
70- 80: 83041 ICH: 
90- 100: 74650 

110- 120: 21537 
1309- 5 152 
GESAMTCHECKSUMME: 16669 


80 PRINT” Schneider 20K Microconmputergam 


e"=:PRINT:PRINT" 1995 MED I - Software 
"STRING$ {38,208} : PRINT 
90 PRINT" presents: Smily tand the ghost 


Meier & Disch 


I":FRINT 


100 FRINF" Ready to load":FRINT 
110 LOCATE 2,13: PRINT"loading SMILY":PRI 
Eitte warten 


NT=:PRINT: PRINT" 
120 RUN" !smilypr" 
130 END 
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10 ERRREHHHIEE 
20 * * 
30 + SMILY * 
De BE ee * 
SS" zvonMED TI - Software * 
60° * Egopyright 1985 * 
7’ # M. Meier & C. Disch # 
30 #* * 
BO IRRE EEE 


Compute mib 


47 


4 


Programme 


100 DEFINT a-a,gr=z 

110 FOR i=0 TOD 79:KEY DEF i,0:NEXT i 

120 RANDOMIZE TIME 

130 DIM ta(3720), tc(322), M{20,21) ,51 18) ,5 
2i8},531{125), toni 124), ton2(36) 

140 REM #** Tonberechnung ##* 

150 FOR i=1 TO Z4:rtont ti) =ROUND (12500071 
2ul.62ur 21/12 I id) NEXT i 

160 FÜR i=0 TOD 3öston2 ti) =ROUND (12500076 
130.813# 121/123) ) NEXT i 

170 RESTORE 4530 

iBO REM ***+ Sound aus DATAs lesen ##%* 
170 FOR i=1 TOD 320 

200 da=da-1:IF da>0 THEN tati)=0 ELSE RE 
AD da,tonrtati)=toni (ton) 

210 NEXT i 

220 FOR i=3 TO 319 STEP & 

30 da=dar1:IF da=0 THEN READ da,dur 

240 IF dur=1 THEN tceti)=ston2(1Mertelitd) 
=tan2tis)steti+2)=eton? (19) steti+)>=ton2t 
15)3:G0TD 2&0 
250 IF dur=2 THEN te ti)=ton2(7)etelitr = 
ton? (id ıtc (i+2)=tonZ2t14)etc(irs)eton2 ti 
I)ELSE te fi)eton2t17f}etcli+l)etonzt2))st 
ceti+2)=ton2 (24): te ti+2)=ton2(21) 

Zz&0 NEXT i 

270 FOR i=t TO S:READ stti}:eNEXT i:FÜR i 
=1 TO B:READ s2ti):NEXT i:sFOR i=1 TO 23: 
READ s3ti)=NEXT i 

280 REM **# Huellkurven fuer Sound **%* 
290 ENV 1,3,5,1,1,0,10,2,-1,7,13, 71,20: E 
NV 2,10,0,1002ENV 3,7,2,1,1,0,2,1, 14,1: 
ENV 4,15,1,5,1,715,1:2ENV 5,1,159,3,8471,9 
«7-1, 1s:ENV 6,5,5,1,1,0,10,1,-15,1 

300 ENT-1,1,1,5,2,71,571,1,33ENT-2,1,-1, 
4,2,1,3,1,-1,4:ENT-5,20,-1,1,20,1,1,1,0, 
10:ENT-6,1,3,1,15,0,2,2,-131,1, 042,1, 1,13 


ENT-7,1,71,3,2,1,5,1,-1,3 

310 GOTO SPO 

320 REM ##* Sound spielen #*#* 

330 tonz=tonz+ti:IF tonz>320 THEN tonz=1 
340 ta=taltonz) 

350 SOUND 129,tcttonz},0,0,2,2 

360 IF ta=0 THEN RETURN 

370 SDUND 132,ta,0,0,1,1:RETURN 

380 REM #** Titelbildsmily zeichnen ###+ 


390 
400 
410 
420 
430 
40 
350 
460 
a70 
490 
490 


DEG 

ORIGIN 320,208 

FOR i=-127 TO 127 STEPF 2 
v=5Q0R(15384-1i%i) 

PLOT ix2,y,3:DRAW i#2,-y,1 
NEXT i 

FOR i=-192 TO 172 STEP 4 
y=S0ORt(372497-i*#i)} 

PLOT i,0,0:BRAW i ,-y/2; 0 
NEXT i 

FOR i=-23 TO 23 STEF 2 


540 PLOT 1000,1000, 7: MOVE-72,-40: TAG: PRI 
NT smilys3:TAGOFF 


550 RETURN 


560 tetl)=tcl32l)stel2)=ete (I22I:ENV 2,2, 


6,2,1,0,20, 


570 RETURN 


12,-1,25 


sAO REM *##* Zeichen umdefinizeren #3## 


570 SYMBOL 
500 SYMBOL 


E10 SYMBOL 
2,&3C 
620 SYMBOL 
630 SYMBUL 
4,&E7 
&40 SYMBOL 
650 SYMBOL 
660 SYMBOL 
42,442 
670 SYMBOL 
2,842 
650 SYMBOL 
7E 
690 SYMBOL 
2 
700 SYMBOL 
3,%42 
710 SYMBOL 
720 SYMBOL 
IF 

30 SYMROI 
43,442 
740 SYMBOL 
42 
750 SYMBOL 
760 SYMEDL. 
3 
770 SYMBOL 
E 


780 SYMBOL 
TE ,&3C 
790 SYMBOL. 
78 
800 
810 
820 
z0 
850 
70 
840 
18 


SYMBOL 
SYMBOL 
SYMBOL 
SYMEDL 


SYMBOL. 


AFTER 32 
33,8EE,&FE,LFE,&hC,&FE,LFE,&E 


64,830 ,&42,899 ,&A1,&A1,899,&4 


88,&0,&0,%0,%&18,&18 
76,&18,&3C0,&7E ,&DB,&FF,EFF,&2 


108,0,0,0,0,0,&b&, kb 
112,80,&FF,&0,%&0,%&0,&0,&FF 
113,442,%42,542,%42, 442,842, & 
116,%&0,87E 42,842, 4472 ,842,%4 
117,%42,%42,%42,842, 442,242, % 
118,80, 2FE,&2,&2,&2,42,L02,%4 
119, &0,&7F ,%40 ,&40,%40,840,%4 


120,&42,802,&2,%2,%&2,&2,& FE 
121,%42,&43,840,&40,%40,840,% 


122,442, 243,840 ,&40,&40,840,& 
123,%&42,802,%2,82, 52,82, 802,& 


124 ,842,203,%0,&0,80,&0,& FF 
125,80, FF ,%0,%0,80 ,&0,&03,%4 


124,&0,&7E,&42,&42,%42 842,87 
128,830 ,&7E„&C5,&B1 ,&FF,&DB,%& 
129 ,218,&04,479,%21 822,604 ,& 
120,%0,%0,%0,&60,&92,892,493 

131,%0,&9,&0,&10,&30,&50,&8F 

132,%20,%850,&50,&61,%42,&CC,% 
133,80,50 ,80,809 ,KAA,870,88,% 


143 ,&656,899,881, 881, 242,424 ,& 


E50 REM *#+* Titelbild ##* 


860 


smily$=CHR&$ (129) +CHR& {1303 +CHR&# (1531) 


+CHR#$ 1132) +CHR# (132) 
870 INK 0,051INK 1,0: INK 3,0:INE 7,0: INK 
12,0:INK 14,0: INK 15,0:PAPER O:MODE O:sCk 


5: BÜRDER 0 


8806 SFEED INK 48,48 


a A 890 PEN S:PRINTSPRINTSPRINT" MEDI- 58 
510 PLOT i#2-95,y+48,0:DRAW i*#2-95,-y+4B - 8. 
„0 ® ae Y BFTWARE" SPRINT 
520 PLOT i#2+96,y+48,0:DRAW i*2+96,-y+4B 700 GUSUB 579 “ 
„0 ” A Y 910 FEN 14:LOCATE 1,22: PRINT" @ 19 
550 NEXT i 95" 

Compube mi 3ıE6 
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920 PEN 15: FRINT" C.Disch" 


M.Meier 


740 FÜR i=1 TO 24: LOCATE 1,1: FRINT"!":LO 

CATE 20,i1:FRINT"T"SNEXT i 

1393: L0OCATE 1,1 

950 INK 1,24: INK 3,6: INK 7,17: INK 12,18: 
INK 14,0,8: INK 15,25,0 

97970 AFTER 35,2 GOSUR 346 

920 EVERY 12,3 GOSUB 330 

790 uwn&=INFKEY$: IF uw$l >""THEN 770 

1900 IF INKEYF=""THEN 1000 

1010 INK 13,24 

1020 REM #*+ weiter Zeichen umdefinieren 
err 

1030 SYMBOL 104,830, &7E ,&DB,„&FF,&B1,%C03, 
Shah ,3C 

1640 SYMBOL 105, &3C,%7E,&DB,&FF,&BD,&C3, 
STE ,&3C . 

1050 SYMBOL 114,%0,%FE,%52,%2,%2,&2,&FE 
1050 SYMBOL 115,&0,&7F,&40,&40,340,840,% 

FF 

1070 REM #*# Schwierigkeisgrad waehlen #* 
** 
i080 MODE 1:INK 2,20: INK 3,0: FAPER 3:FEN 
2:05 

1670 FRINT=PRINT=:PRINT: PRINT TABt11}"5 P 
IELSTUF E":PRINT TAB{11ISTRINGFIAL 

27 ,CHR# 154) ) :PRINT=:FRINT=PRINT=:FRINT TAB 
ee) j" 

1106 FRINT TABt14)"A -> ANFANGER":PRINT: 

PRINT TAB(ZOJ" 3" 

1110 PRINT TAB(14)"K -> KONNER"SPRINT:FR 
INF 

1120 FRINT TABt14)"P -> PROFI" 

1130 Is$=UPPERFÜINKEYFIEIF Is=""THEN 1130 
1140 IF I$="A"THEN FA=11:F=0: punb=500: ag 

=100: apz2=10:G0T0 1180 

1150 IF Is="K"THEN FA=11:F=2: punb=1000:2 a 

g=50: apz=8:60T0 1180 


1150 IF I$="P"THEN FA=0:F=2:punb=2000: a9 


=25:apz=6 ELSE 1130 

1170 REM x#** Musikbegleitung Abfrage *+#* 
1180 CLS:LOEATE 4,13: PRINT"MIT MUSIKBEGL 
EITUNG ? J DDER N" 

4190 i$=-UPPERFCINKEYFI=IF i$=""THEN 1190 
1200 IF i$="J"THEN ENV 1,2,4,1,1,0,10,1, 
-1,9,7,1,20:ENV 2,2,3,2,1,0,20,5,71,251 
GOTO 1230 " 
1210 IF i$="N"THEN LA=9:LC=OsENV 1,1,0,1 
GO:ENV 2,1,0,100 ELSE 1190 

1220 REM #** Labyrinth aufbauen x##* 

1230 MODE G:PAPER G:SPEED INK 10,10 

1240 CLS:R=eR+1:LB=LB+1 

1250 IF LB>?10 THEN APZ=APZ-1:LB>=1 

1250 IF APZ<1 THEN AP7=1 . 

1270 ON 1b SOTO 1280,1290,13006,1310,1320 
„1330,1340,1350,1350,1370 

1280 RESTORE 1440:G0T0 1380 

1290 RESTORE 1540:560T0 1380 

1300 RESTORE 1840: G0T0 1380 

1310 RESTORE 2040:560T0 1380 


programme 


1320 RESTORE 2230:60T0 1380 
1330 RESTORE 2440:60TD 1380 


1340 RESTORE 2540:50T0 13989 


1350 RESTORE 2840:60TD 1380 

13&0 RESTORE 3040:G60TD 13809 

1370 RESTORE 3240 

1380 INK 11,fasINK 12,18:LOCATE B,i:PEN 
7/:PRINT smily#+:PRINT 

1390 fpu=0:FOR I=3 TB 21:FOR J=1 TOD 19ER 
EAD L#+ 

1400 IF L$="X"THEN PEN 12:FPU=SFPU+1:M(J, 
I)=88 ELSE FEN 11:M(iJ,D=1 

1410 PRINT L#:;:NEXT J:PFRINT:NEXT I 

1420 REM #**+ DATAsS fuer Labyrinthe ### 
14350 REM #*## 1. Labyrinth ### 


14406 DATA" "WERE PsPıP>sP3P+PıP+P+Pr 
PaPsPpsvs" "sm" 

1450 DATA " "," "Ka XuKaXs Ka Ka KaXHXı Kr 
1460 Dara IERRIEL PL FU 92 SER FH rr 
HAT ERERBERHRRRRRRE 
1480 Data tun "5X, X, W,P;,73Xy5,P3Vr 
1498 Bafa u "QsXK,0rX3QXyKıKyKrKrQs 

. 

1500 Data nn ".Q4X,9ı% 39,54 Rıf dh 
rn u’n,n “X K AK K7 Ka Ks Kr 


KK" Pa" 

1520 DATA 5,P3X8 3X, 93 X su XaWPy YaX al Kr 
K,yıpı,r“ 

1530 DATA XXX, A, Gy Ay Kr," 
GyXK,X,X 

1540 DAFA 5,P Ya Xsr Krk Ks Yıpsf af rt Ks 
K,W,pır 

1559 DATA FTIR RR KH KH Kr Kata 
X,1,%,0," . ” 


"QuKuKsis 


1580 DATA " "5,0 7,0893 %39, 35H Ps akut 
X,0,%,9,” "u u 

1570 DATA "1," 1, 089 K sr Ka Kr Ks Ks Kr 
%,0,X%,04,” .. HE 

1580 DATA" "N 1, 8,93 X Ya Par Ks SHP sfr 
%,9,X,94," „" „a 

1590 DATA " vn 0.0, X,09 Ko KX4 X X 4 KH Ks Ko Ks 
%,0,%,0," ... 1 

1800 DATA . .. Y,Qs%Ks4U4X457PsPHP+PrP rs 
Ki" Ti . 

1810 DATA "U U NN KK KK X u Ku Kr X 
KuXyXıgs" “.. LI} 

1820 DATA # ",9 N YaBaPsP+PsPaP PHP sPsP 3 


PsP,Ps% sr" ... LU} 
15830 REM #** 2, Labyrinth #*# 


ts40 DATA" N," Ya PrPrPrFHPsP+Ps»PsıPs?n 
PsPsPs»Ya" .. LI 
1660 DATA" "0 u Katy Ka Ka KySaPar a KrK, 
X,t,X,4," "." L[3 
1570 DATA " 7,77 .QsX,ZsP4FaKı X, XXX HS 
P,1,X%,47"” .._.. nm 


1580 DATA" vn N X Ku Kat KntrKsK, 


Compute mib 


a0 


KK" "st" 
1590 DATA " un »QX,93%354Pı taz ıPıfa 
a an nn "Ks Kr Kr Kun Ktı Ko, 
ro Dein un "Kr Kata Kr Kris KıKıts 
1725 Data un KK Kamp vH Kr 
1538 Data nn ngrXrgsKarKaar" "a.X, 
1740 Data“ ERICH IC OH Ba en cr 
1726 Baia n'nn "Ka X a Ka NK Kr X ar 
ou nn 
1786 bata n,e Ks KK Kata XrtrXr Kr 
a Bara ne "0,X,04X753P3 t3%sZ24Baırfs 
n nu 
1780 Data or. 2 0X XaKs Kg Kglty Ku 
ala an Ns KH ZyPalsKaXı Kr fr 
nn 
EN SP aK a Kr XuKy Ka Sn Para X Kr Ksllr 
1810 Dara KaKıXaXoKyKotaXuXaXaXaXrtrkrkn 
1820 DATA SHPıPsBsR+PH" 1" sPsRPıP+Papa" 1" 
En 3. Labyrinth ### 
1840 DATA S,P,P3PHP+P»B+EsPıPsPsPHP+P+P> 
1852 Bara KaK5KN KK KENN Ka N 5 N 3 Ks X Ün 
K,XA,X 
1840 DATA wiPp HP HRS FaßaPaParsKaSHPaPaPs}s 
1870 Bara [ep 0 Ge GET: Ep Sie En Ge Ge Se ET SP 
1860 Dara AuXrtzX,0: X WsPsTeXa5sPıVYakıls 
1570 Bara = PR.SL- Pe Oitee Ir. Pe 0e 2p 28 29 Er. PEST 
1700, DATA 4X X3 XXX 53 Bf 1X Kı a 
1918 DATA QGskaYal XS KıK a Ks Kr Ka Yırl sa 
1920 Dara Ka Ko Ka KHK KK WR Vo KHK Kr 
XK,X 
1930 bara 24PuraX, 54 PHP, X,Qr" "QrX454,Ps. 
1920 Data QuKsKı KK KK KH YaRa Ko Ku KK 
1350 Data XanaraXy 59 YaXa X Kr Ka KaWar a X 
Buy 
1360 bare KHK KK HK SH Pa sat Kr Ka 
1370 Bara GrXasXataX XXX Ks Kt 
‚4,X,4 


programme 


19780 DATA 4, Xu, Ks R YoPı ar SHP3X X 


X,u,%,0 


1990 DATA GaXaXaX7Qa Ka Ka Ka Ka Ka Ka Kr Kr X 


K,X,X,q 


2000 DATA y,Pp,PsPR,"i" 


s9s;R4Pır sXsSHPrPsPn 


"PSP rPR+* 
2010 DATA X,X,X,X, x, ee 


X,X,X,X 


2020 DATA SHP+P+PsP HP +PHP3PHPHPH+P=PaP HP» 


PsP,P+r 


2030 REM ##* 4. 
2040 DATA S,BsPsPsP3P +’ rP+PAPHP3sPsFsPıPr 


Pst,Psr 


Labyrinth *#*#* 


2050 DATA KuKaKaKuXo Ka Ka KK KK An Kr 


KA, XsX 


2060 DATA SV K Kaspar Ks Krk 


K,gQsA,t 
2070 DATA 
Xu, X, X 


2080 DATA : 


X,X,X,0,8 
2090 DATA 
X,54Py{,X 
2100 DATA 
X,XyXıı8 
2110 DAfa 
Psrs%sgsX 
2120 DATA 
X,X,XzgrX 
2130 DATA 


‚g 


,g 


,q 


‚g 


‚0g 


‚gq 


”.X,5.P71,X,9 


2140 DATA 
KyX,X,g5X 
2150 DATA 
PırzizgıX 
21&0 DATA 
KzX,X,GıX 
2170 DATA 
X,5;Pst,X 
zıB0 DATA 
KKyirgıX 
2170 DATA 
KrtıX,gr% 
2200 DATA 
XKunXslisf 


2210 DATA 


KoXaXyXs,X 
2220 DATA 


[I 3 n 
2250 DATA 


„ .. ”-_“ 
zZ2&60 DATA 
PyYs" ... 


. 2270 DATA 


%,Q," ..” 


,q 


‚ga 
[L 
+ 
Er} 


‚q 


,q 


‚ga 


‚qg 


,q 


Ws 
Li} 


RK HR KK NK RT" 


” 
7 


Li} 


+PıP sP+sP,Pı* 
22350 REM #*%* 


22409 DATA: 


3. 


PT: PR GITeR 2 28 20 SE Op Ze 22° 


ur: Pr 25 2 Su. SEER Fan 


rs 
"Pam aKr Kr KaX KH Kr had 
KK Ks KK 5a Va 


NR 53P3 KK KH KH Ka 


Ku KHK Kr Ka Pa Va As kr 


KK" "li 
Yo K3 KK KK ya kr 
N GRı55PYrKa Kr Kr Kr Kan 
BL: Po. 0 2 SET ZI ER SED DE DEZ 
N 24Pat Ka Ka KyXa KK Kı X 
"aXXoK, Ä 


BELSUER Fur Zu 


1 ANaE KH KK KH X Aa Ar X 5 


"Ay, Kst ,Xr5ePpsfaksta 


u Pe On 29 ZU PR 29 25 29 75 77: 7 


YYaRsPsPs" "PH B4PsPsPı 


Labyrinth #8# 


PsPsPrPsPsPsPsPsPaYa" "2" "a 


Li3 


GrX,W,P-P+P+P+PsYı fr 24 PsfsPa+Ps 


ArXstsKoKuKn KK Kun KnKKake 
1 


2280 DATA q, 


%,g," _. 


2290 DATA q, 


X%,0s" ... 
2300 DATA 
X,Q0,” ... 
2310 DATA 
X%,9,"” .. 


pe SU. Pe OR 27 2e SE De en 
" 


KagKutıiy” 


X,Gs 


PR Se Te 200. 25 Sue 05 29 
KK XuXateXfıtsisXrirle 


YırıaXySslı 


GXG KK KK X KK a Ks A a Kal 
El} 


2320 DATA u 


XKrZ,Pır 


Compute mib 


KtafzXıir” 


Ans PaVaXı"sRsfz 


3/86 


* 





w 


2330 DATA X,X,2,Pır X, X, X,Q," OyKyXsXr 

SyPrtzX,X 

2540 DATA SaPstsK X X YsK YrPaR Kg Yu X, 

Kygyirt 

2350 DATA" 7," "0 5K,t3X 2X, XXX KaX X, 
I: %st,%,9,X,q 

2360 DATA *" "," YAHKzEIT AK, 5 VA Hu X 


S,1,%,q4,X,q 


2570 DATA " "," GG AH NK X U X Ay X, 
Kris Xrq 

23580 DATA NN N KU Ka Ya Ku KK X, KT, 
Xu, X,0,X%,0 

23970 DATA HN NK KK Ka Kt X, X, X, 
XXX, Xyq 

2400 DATA " "," "VERS RHPHPrPsksX4 YaPsP, 
PsPsP+%,X,q 

2410 DATA 4 Li} F n 1 $ "n „ y n ” A [13 2 ’ a El} + LU} n ’ 4# 
VERK KK ER KK, KK A 

2220 DATA [| [15 F Li} Lr} 3 [13 [I , „ rr Pr [11 u “a . Fr Ei} Li} y u. 


"YERHPHPrPsB+BHPsPsPprX 


2430 REM ###* &, 


2446 DATA 
Pstsp,r 
2450 DATA 
X,4,%,X 
2480 DATA 
K,g,X,t 
2470 DATA 
X,4%,q 
2480 DATA 
X,g,X,q 
2490 DATA 
EL TETT 
2500 DATA 
Kr Xrq 
2510 DATA 
Pstsi,g 
2520 DATA 
X,u,X,g 
25350 DATA 
,X,X,X,gq 
25340 DATA 
K,t,X,g 
2550 DATA 
Prfsi,g 
25560 DATA 
KK 
2570 DATA 
XKy,9,X:q 
2580 DATA 
Kai 
2590 DATA 
X,1,%,Q 
26800 DATA 
X,9,X,u 
2610 DATA 
X,Q,X,X 
2420 DATA 


PrPsP,":", 
2530 REM ### 7, 


2640 DATA 


PıPsPavz" 
2450 DATA 


3/86 


Labyrinth ##%* 
SPH FH Ps Ps P3Ps»P 3’ sPrP+P+PsP;r 


KK Ko Xp Ka Ka Kr KK Ku KHK, X, 
EX Km Ka Ku, X, X ,5,V, 
: PR. ST PR SITER 2 75 7 Ge Ze Ze at 
KK X Amor Kt Ks vs XsX, 
KHK 50H K KK KH KH Ya 
KHK KH N TR KK a X a X 
u ER.Er 25 FI 29 SE PE SE Ze Ge EB 
GrKaus KK KK KB EV Ka KK X y 
AeXyKuX,"X,S3Pst," "z2yPsr,X, 
NE sK KK KH N Ya RK X Xu X 
ArÄy2 Pet K KK X X 7X ,5, 
Ks KK KK KENT KK Ku X 
KELZEEEZEZT EN ZE IE SE Ze SE ST FT 
KK Ks X Yo a Kg Xu K rs 
GoXsGeKat KK KHK KH NH Ku Ku Kst, 
UK Kg Ya Ka Nat X U XS, 
KyXasKaKnK KK Ka Ku Kr Ka Ku X, 
BEP SPHPFPaP 3" I" PH Baps 


Pır 
Labyrinth ###* 


BP BSRHRHPsPHRHPHPsP» 


» 


“ "KK KK 3X Ka RX X Ka KHK 


XK,X,X,g," 
2560 DATA 
Pır X," 
2570 DATA 
KKıX,gr" 
25980 DATA 
X,t,%,q," 
2590 DATA 
5,1,%,9," 
=700 DATA 
Ks Kyle" 
2710 DATA 
X, Äs04" 
#720 DATA 
Ariryor 

2730 DATA 
XK,Q,%X,X,X 
2740 DATA 
YsX,wır 

2750 DATA 
Kr %rgs" 
2760 DATA 
%,9,%,9," 
2770 DATA 
54%4,8,Qe" 
2780 DATA 
Xzu,X,Q4" 
2790 DATA 
X,K,X,e" 
2900 DATA 
"10.P4rık, 
2810 DATA 
KXıX3ga" 
z820 DATA 
PrP»Ps%r" 


_programme 


"KH SHPHirPHPHPHPBaPsPrP+?r 
“ KK Ku KK KK KK Kran 
KR EN Ka X X U X u Ka X, 
YGaKyZur Kt K, KK, Zu ak, 
” "rasKsgs KK Kun Kr Kun KK, 
u "an KaaKabaKnKı KK KH Ko Kate 
SoXrsK sts Kr Ya XuWaPy VYp X, 54 RX, 


KRKK KK KK," "X XıXz 


SWR gs KW X, YaßpıR KSV 3X, 


“ "KG Ka A Ku KK Ka X Ka 


” GEH KH HE X Kt X X, 
[l} 


KH EI HN y 5 TE N KK Zu X y 
[1 


" "RU KK Ku X, X zus Xu X, 


" KK KK KH NK X Ka X a 


u. 


PAAR HP5sP+PR4P 3 
gs" [5 


“ KK HK N KK Ka X a X a X 


“ RR PHPHP=»PsPsPIPsPsP+ 


2850 REM ###* B. Labyrinth #+# 


2840 DATA 
P»P,»P,Y 
2850 DATA 
X,X,X,g 
2850 DATA 
5,V,X,9 
2870 DATA 
XK,u,X,q 
2880 DATA 
X,X,X,g 
28370 DATA 
X," , X, 
2900 DATA 
X,X,Xrq 
2910 DATA 
PsPsP,% 
2920 DATA 
KıNıXıX 
2930 DATA 
Kyy,X,s,r 
2940 DATA 
KrXyX,X 
2950 DATA 
PsP»P,W 
z980 DATA 
ELITE TE 
2970 DATA 


Sompute mi 


WPRSPHsP+P43HPHPsP33+P+P+P3} Pr 
KK KH Kg KK N RK Ku N, X u 
Rs X KT Kt Ka a Ka Ks 
NK Kt KK KK KK Kat ak 
RK Ka Ku ER 5 KH Ya Y 
GH KHK Ku X KK a Ka Ka X a 
PR ER SI. .29 2 SEPe Se SEE Ge Ge 
YıpsPsParsXs3Ks X, X, X, X, KK, X, 5, 
KXKNu X Kt, KuwmPavsKgty X, X, 
SorsK tn Ka5,trhr" "Krug 
KK KK KH U NH Ya PK Ks KK 
WYRHPSPIF KK KH N KK X, X, KG 
KK KENT KR KT KK, 


PR SE. ER SR 2 29 Ce Eu 2 Ze 2 Ge a 


5l 


52 


programme 


Ki, 
29980 DATA KK Ka Ya Ya Kr ss shaft aaa 
xX.X,X,.q 


2990 DATA guXgtoXH X Ko Ku KK Ks X Kata Kr 


X,ht,%,q 
3006 DATA q, X, yı Ps X, X Rat 
5X, 


KıtaXaY XXX, 


3010 DATA QuKsKoXsKate KK Kr Korn t, ‚Xs 


KıXriıg 

3020 DATA YapsPsPsP3"" 
"E94PrPsPrıPp+X* 

3030 REM ##+* 9. Labyrinth ### 

3040 DATA wsP+PsPaPs+PsPıPsP+PsPR4PrPrP+Pr 
PıPsPsY 

3050 DATA u XXX KHK KK KH RK Kr Ka 
X,X,X,u 
3050 DATA 
Pır3XK4X 
3070 DATA EaKaK HN KK NH Ka Ka Ra X KK sr 
%,X,X,t 

3080 DATA 24; raw Ps PaPRaP HP sP3PsP+PıYr 
%,5,Pst . 
3090 DATA aNsXaX u KK aX 3 KHK Ka Ka Kr Ks 
XyXsi,gq . 

Z100 DATA 4, Kst, X, %ıXstı 4” 
K,t,X%,g 

3110 DATA GaXaYaYaKasaX KK KH RaXnYalıka 
wW,2,%,0 u 

3120 DATA 5X XK U X3 XXX aWaP a Ya Ka X Kr Ka 
U,%,%,q 

3130 DATA zur, X, X,X%,” 
X,X,X,5,% 

3140 DATA guXaXatıX Ks Ks Xa Yo ara KaKıkı Ko 
t,X,X,d 

3150 DATA AeXaWaKa XS V KK KK Kal ai 
YıYıX%.a 

3160 DATA 4X Ks KK Nas X 
X,U,X,9 
3170 DATA Ka X3 Kat KXa X KK KHK Ks Kr Krte 
K,X,X,q 

z180 DATA z,P1r7,X 
X,5;,Pıt 

3190 DATR ugXaXaäaKaKı XXX KK AK Krk 
X,X,X,u 

3200 DATA X, X, 5, PsPsPsPsPıPsRıPıP+P»PıPs 
PıtzXsX 

3210 DATA ee EI 2 20 
K,XuX,t 

3220 DATA YrPsPsP+P+P+PsP sP+PıP=sP»P+PıP» 
PıP+P+* 

3230 REM **#+ 10. Labyrinth ### 

3240 DATA " ",r on," La nn" "sBsP+Pr}s 


=PsP»Ps"3"sP4PsıPır 


K,%X,54P HP sPıP3P+P+PsP+P+Ps+P»PH+ 


KtKstrKais 


Xy55ta" 


M) 
Pr re SER 


Pie STIER SE. 29 


»YsPsPsP+P+PsPıP=PrPr*%r 


P+P+PsYa" ".. ... ”." ... r 

Zz250 DATA " en Bu ". ".. ee pe GEB SAT 
Krk m, ... .. nn [7] 

32h0 DATA “ ".. \ ".. hin ag ärke 
X,YY." ... ... .. a 

23270 DATA E] rn “. “.. “KK Kı Ks Hi 


X,X,X,9s" .. u... ._. a 

3280 DATA "nn nn nn Kasara Ka kn XS 
nuXYıYa" ... _.. n - 
2900 DATA Lil n Fi El [17 Pr LL3 
X,X,Xy4G" ".. ”.” [13 


vKsKaK Ku KstıKri; 


Gompube mib 


390 DATA “ u BL PR up SRSEB SE 73 Pace Bun 27 2 

PP RE EZ EEE SE j 

310 DATE . PT. 75.25 28 25 7e 28 2e 2a 22. 28,2 
4 Pr 9," 4 [13 au 


7 
3320 DATA " 
“IKYaVE" 
330 DATA " "NK Ks Xs X Ka" "lekıke 
Kıkfriıklr" 
3340 DATA WaRafnT 

ELITE ZI 

3550 DATA g4XsXHXys 8 x, KXaXAAıRaXaXs Kr 


Hey aka Ar Pa Ya ai 


KyssrsKrYsPsXyXrıSıPsko 


"X,XKı Kg 


3366 DATA 49,X,” 
“uX,g 

2370 BATA GaArKrKs KlaXsKaXr XXX Kı fra 

KX,%,g 


SED SIE 


FR Pe Due Ti 


3380 DATA YrP=aPaPaPaYaXı "Ka Yo X Ka 
P+P+Pı* 
3370 DATA Li .. ".. ." .. "0X XyXuXs 


X, x Xyrlz" “u ".. _." . u 
3400 DATA S7PsPsPrPaX sfr WrPaRsı Ps VYrKı Ya 
PsPsPsF 


3410 DATA X,X KaKkıXaXs re" nn, ng, 
KuXyXaKrXıXrı X 
3420 DATA SS PHPHP»P SPAR aXH" nu, TDYr 


P+PsPsPsP+P = 
3430 REM x#* Spielablauf #** 


3440 FOR i=3 TO 9-f*2 STEP 2:L0OCATE 1,25 
:PEN 1:FRINT"h”=NEXT 

3450 INK 6,15:PEN 5 

3460 uw=REMAIN (3) :FOR I=i TO APZ 

3470 SFA=INT {RND(1)#17) +4: 5FB=INT (RND(1) 
*#133+4: IF M(SFB,SFA)=BB. THEN LOCATE SFB, 
SFASPRINT CHR$t143) 3:M(SFB,SFA)}=143 ELSE 
3470 

3480 NEXT i 

3490 SDUND 2,0,0,0,4,0,1:WHILE 501235127 
: WEND:= SOUND 2, 119, ö, 0, 5, SsWHILE 50123 >12 
7/3 WEND 

35900 ptime=0 

3510 FPU=FPU+HAPZ#F 

3520 GOSUB 4560 

3530 SI6=-1 

3540 AN=1B:A=18:BN=10:B=10 

3550 GOTD 3770 

3560 FOR i=1 TOD ag-r#2:NEXT i:X=0: Y=0:JD 
=J0OY iO) 

3570 IF J0=1 OR INKEY(O) >-1 THEN Y=-1:60 
TG 3610 

3580 IF J0=2 OR INKEY(2)>-1 THEN Y=1:60T 
0 3510 

3590 IF J0O=4 OR JO=5 DR JO=& OR INKEY(B) 
>-1 THEN X=-1:60T0 3610 

3400 IF JO=B OR JO=9 OR Jü=10 DR INKEY (1 
3>-1 THEN X=1 

3610 BN=B+X 

3620 AN=A+rY 

53630 IF BN<I THEN BN=17 

3640 IF BN>19 THEN Bn=1 

3550 IF ANS>ZN OR BN{>SN THEN 37706 

3650 IF SIGE<O THEN 3740 

3670 PEN 7:F=F+1:2LOCATE B,A:PRINT” "3:10 
CATE BN,AN= PRINT CHRS (12893 


3/85 
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| 3680 SOSUB 5110 

"3690 IF F>4 THEN 4410 
' 3700 FEN 1:LOCATE 1,23:PRINT" 

\ . FOR I=3 TO 9-F#2 STEF 2:LOCATE 
: 13233 PRINF"n"=2NEXT 
: 3710 LOCATE BN,AN:IF M(BN,ANI=88 THEN PE 
: N 12 ELSE PEN &4 

: 3720 PRINT CHR&CM(BN,AN)DF 
| 3730 GOSUB 4550:60T0 3540 : 
' 3740 PEN 1:L0CATE B,ASPRINT" *s:LOCATE B 
 N,AN:PRINT"h"5 
|: 3750 GOSUB 5130 
| 3760 pun=PUN+R*=50:PEN &:LOCATE 4, 254 PRIN 
| T USING" HH PUNKTE"; PU&r+pun:GOSUB 4 
560 
| 3770 IF M{BN,AN)=88 THEN SGUND 130,0,0,5 
»3,0,25:L0OCATE b,a: PRINT" "sLOCATE bn,an 
I. PEN 1:PRINT"i "PU=PU+1: PEN A:LOCATE 4,2 
5: PRINT USING"##48444 PUNKTE"; PU&r+pun:M 
(BN,ANI=32:G0T0 3830 
3780 IF M{BN,ANI<>143 THEN 3830 
3790 LOCATE b,a:PRINT" "s:LOCATE bn,anıP 
: EN 1:PRINT"i"5:50UND 2,239,0,0,5,2:PU=FPU 
|. +10: PEN 5:LBCATE 4,25: PRINT USING" HAHHHRH 

# PUNKTE", Plütr+pun: MIBN,ANI=32 
35800 INK 11,11,17:518=--1:s5r=0 
3810 ZR=SGN {AN-ZI#(-1)3: IF ZR=0 THEN SR=5 
SENI(BN-5)+#5IG . 
3820 IF TIMESptime THEN ptime=sptime+1800 
+300#(fa3=0}ELSE ptime=TIME+1800r300# {fa= 
0) 
3830 IF X=0 AND Y=0 THEN 3586 
3840 IF M{BN,ANI<>1 THEN 3870 
, 5850 AN=As BN=B: IF FA=0 AND sig>O THEN IN 
K 11,11:FOR I=1 TO 400:NEXT:INK 11,0 
3840 GOTO 3880 

3870 LOCATE B,A:PRINT" "5; 

3850 LDEATE BN,AN:PEN 1:PRINT"h";3 
=BN 

3890 IF 5IG>6 THEN 3940 

3906 IF TIME<ptime THEN 3940 
35710 sig=1:INK il,farsr=o 

3920 zr=-56Ntan-z): IF zr<>0 THEN 3940 
3930 sr=BGN (bn-s) 
39406 IF pun+putr<punb THEN 4010 
3950 LOCATE 5,2: PRINT"! BONUS !" 
3960 BOSUB 5150 
sF770 IF 17-4 THEN f=f-1 ELSE pun=pun+300 
:LOCATE 4,25:PEN 45PRINT USING" PP 
UNKTE" 3; PU&r+pun 
3990 punb=punb#?2 
39790 LOCATE 4,7: PRINT" “ 
4000 PEN 1:LOCATE 3,23:FRINT" 

"FOR i=3 TO 9-##2 STEPF Z23LBCATE 

1,23: PRINT"h"T:NEXT i 
#010 IF pu>=fpu THEN pun=pun+f{pu+lü)&r:p 
u=0: LDEATE 4,25:PEN 5:PRINT USING" #8888# 
# PUNKTE"3 pun:GOTO 1240 
4020 IF zr<>O THEN 4080 
4050 zrp=S65Nlan-z}*sig: IF zrp=G THEN 413 
[6] 
4040 IF mis,z+tzrp)<>1 THEN 4070 
4050 IF mistsr,zi3c>yi THEN 4210 


sA=AN:B 


Gompuhe mi 


programme 


4050 zr=-zrp:sr=e0:565070 4210 
4070 zr=ezrp:sr=0:60T0 4210 
4060 srp=SGN (bn-s)#sig: IF srp=0 THEN 417 


4090 IF mistsrp,z)“X>1 THEN 4120 
4100 IF m(s,z+zr)<>1 THEN 4210 
4110 sr=-srpszr=0:60T0 4210 
4170 srzerp3zr=0:6070 4210 
4130 IF mi{is+tsr „z}<>1 THEN 4210 
4140 zr=56N {INT (2#RND {1))-0.5}:s5r=0 
4150 IF mis,z+zr)@£>1 THEN 4210 
4150 zr=-2r:50T0 4210 
4170 IF mis,z+zrI<>1 THEN 4210 
4180 sr=56N INT {Z#RND (1))-0.5):2:zr=0 
4190 IF mis+sr,zi@i>l THEN 4210 
4200 SR=-ER 
4210 ZN=Z+ZR: SN=5+5R 
4220 IF SN{1 THEN SN=1? 
4230 IF SN>19 THEN 58-1 
4240 IF M{5,23=88 THEN FEN i2 ELSE FEN &4 
42506 LBEATE 5,Z=:FRINT CHR#&(HMHiS,Z)y): 
4250 LOCATE SN,ZN:FEN 13:FRINT"'"; 
4270 IF ZN<SAN OR SNASEN THEN 4390 
4260 IF 51650 THEN 4350 
42906 F=F+1:L0CATE SN,ZN:FEN 7:FRINT CHR& 
(128); 
4300 GUSUB 5110 
4310 IF F74 THEN 4410 
4320 PEN 1:LOCATE 1,23: PRINT“ 
"ıFOR I=3 TO 9-FxZ STEP 2:LOCATE 
1,23: PRINT"R":NEXT 
4330 LOCATE SN,ZN=:PRINT" "3 
4340 GOSUB 3550 
4350 GOTO 3540 
A360 LUOCATE BN,AN:FEN 1:PRINT"h"3:GOSUB 
5130: pun=PUN+R#50: PEN 5:LACATE 4,25: FPRIN- 
T LSING"SHHHHHR PUNKTE"; Pl*r+pun 
4370 GOSUB 4550 
4380 GOTO 3550 
3390 Z=IN:S=SN:GOTOD 3550 
3400 REM ###* Spielende F## 
4410 PUN=FUN+PU#r:LOCATE 4,25:PEN 4: PRIN 
T USING'"#44#4444 PUNKTE"; PUN 
2420 INK 143,24,8: INk 15,8,28:SFEED INK 2 
4,24:PEN 14:LDCATE 2,1:FPRINT"a## 
#":PEN 15:LDOCATE &4,1:PRINT"GAME OVE 
R" 
4430 ENV 1,3,5,1,1,0,10,2,-1,9,13,-1,20s 
ENV 2,2,6,2,1,0,20,12,-1,255EVERY 12,3 6 
OSUB 330 
4440 INK 9,165:PEN 9:LNCATE 1,23:FRINT"e 
1985 MEDI-SOFTWARE" 
4450 un$=INKEYF: IF uw$<>""THEN 4450 
4450 i#=INKEYF: IF iF="E"VOR is="e"THEN 46 
oo 
4470 IF JDYiO)<>1A AND INKEY(9)<O THEN 4 
Au 
4450 PEN 1:FOR i=1 TO 17:L0CATE i,1:PRIN 
T® h®"3FOR j=1 TO 150:NEXT jsSOUND 130,0, 
0,5,3,0,25:L0OCATE i,1:PRINT" i":FOR j=1 
TO SO:NEXT j=:NEXT*i . 
4490 SYMBOL 104,8&E0,&540,840.,%76 Rbb,&66, 
KE& 


53 


94 


programme 


4500 SYMBOL 105,&18,&0,%38,818,&1B,&1B,% 
SC 
4510 SYMBOL 114,%0,%&0,&DC,%&76,&:60,L60,&F 
o 


4520 SYMBOL 115,%0,&0,&3C0,&60 ,R30,%6,%7C 


453090 PUN=0: PU=0: R=0:1B=0 

4540 GOTO 870 

4550 REM #*#* Gespenst kommt heraus ##* 
4560 Z=10: Zu=10: S=10: 5N=10: ZR=0: SR=SGN I 


NT{RND{1)#29-0.5) 

4570 PEN 13:LOCATE 10,12:PRINT"'"5 

45980 LOCATE 10,125 PRINT" "53:LDOCATE 10,10 
:PRINT"'"3:EVERY 12,3 GOSUB 3530 

4590 RETURN 

4500 uw=REMAIN 3): SDUND 133,0:5YMBOL AFT 


5070 DATA 379,53197,4286,358,4708,3797,4326,63 
8 

soB0 DATA 438,426,379,478,358,4268 ,319,37 
g 

5090 DATA 478,379,319,2397,170,239, 253,21 
3,253,2984,239,2984,319,253,319,284,239,28 
4,253,213,253, 257,478 

5100 REM “*# Fehlersound ##%* 

5110 uw=REMAIN{3):SDUND 153,0: FOR so=i T 
0 8:50UND 2,s11so) „O,0,8,6: NEXT so: WHILE 
5912) >127:WEND: RETURN 

5120 REM #** Sound fuer gefangenes Gespe | 

nst ### 

5130 uw=REMAIN IT) SOUND 133,0: FOR so=1 T 

0 8:50UND 2,52(s=0) „0,0,6,6:NEXT so: WHILE 














ER 32:FÜOR i=0 TO 79:ıKEY DEF i,1:NEXT:PAP SG (723 127: WEND: ptime=ptime+r0ü: RETURN 
E 
ER O:PEN 1:MODE 2 5140 REM ##* Bonussound #** 
4610 END 5150 uw=REMAIN (3) :50UND 133,0:FOR so=1 T 
4620 REM #** DATA= fuer Sound ##%* D 25:50UND 130,5351(s0) ,0,0,5,7:5FOR j=1 TO 
ud = . n 
4630 DATA 2,7,2,12,1412,1,14,2,16,2,12 300:NEXT j,so:WHILE 50125 >127:WEND: EVER 
4540 DATA 2,14,4,19,2,7 \ 12,3 GOSUB 330: ptime=sptime-1500* (sig=- 
“ 
4650 DATA 2,11,1,11,1,12,2,14,2,11 ) = RETURN 
4460 DATA 2 r 12,4, 73 ? 7 EHEOR VE RRUERSUNMEN: ts10- 1420: 535291 | 2650- 260: 112208 | 4290- A300: SlAls 
4670 DATA 2 1 12 L 1 L 12 7 1 4 14 Por 7 1l& q 2 7 12 ZEILENNR_: SUMMEN 1ASO- 4440: 20924 | 2870- 7886:113130 | 4310- #3201 17190 
19- 20: zoL 7a 1450- 1460: 62163 | 2990- 2700: s11g7a | 4330- 4340: 11440 
#680 DATA 2 ? 17 ‚2 ’ 19 „4 „21 30- 40: 14412 1470- 14B0: 472990 | 2910- 2920: 117271 42577 se en 
- F - : 128903 30- 2940: 116697 - a 
46970 DATA 4 ı 17 ‚a F 11 Er Fr on 1sto- 1320: 122907 29505 2960: 113420 | 4370- 4400: peren: 
[ - f _ 4 4410- 4420: 
4700 DATA 7,12,1,19 zen | Iereeanee Er Eraee lines | ans, zn szare 
4710 DATA 2,24,2,23,3,21,1,19 Iso 120: Zeose | 1570- ıumar saseo | SOto- 3020: amah | #450- A4h0r 73526 
’ nr ‚nr ».ı 150- 160: 111437 1590- 1600: 43463 | 3030- 3030: 79180 | 4970- AaB0s 27025 
4720 DATA 2,24,2,23,3,21,1,197 170- 180: 35240 1610- 16201 64605 | 5050- 3060:112437 | #470- 4500: 39705 
190- 200: 560As 1639- 14540: 21581 3070- 53080-119353 ” E 
AS30- 4540: 58149 
4730 DATA 2,24,2,23,2,21,2,17 210- 220: 10018 1850- 1660:126753 | 3090- 3100:111034 : zum 
230- 240: 69122 1670- 1550: 128896 | S110- 3120:1413987 | 35507 45607 
4740 DATA 7,17,1,19 2S0- 2&0: A121 1690- 1700: &6636 | 3130- 3140:116935 | 45707 ss: aan 
270- 280: 58947 1710- 1720: 53717 | 3450- 3160: 114976 — 2: 
4750 DATA 2, 23 24 19,5,21 is 17 290- 300; 46148 1730- 1730: 1445 | 3170- 3180: 115487 |. er Pe ae 
Tio- 320: 20655 1750- 1760:127330 | 3190- 3200:112637 - ! 
47606 DATA 2, 19,2,16,3,17, 1,14 330- a 36764 1770- 170: 64634 | 3210- 2220: 113857 2eso- aan: Er 
350- a0; 2reud 1790- 1800: 1235455 | 3230- 5246: 31188 - F 
4770 DATA 2,16,2,19,2,16,2,14 370- 280: 537480 1810- 1820: 50599 | 3250- 32640: 14513 | 4590- #700: 6447 
4780 DATA 7,12,1,17 390- 400: 2408 1830- 1840: 78970 | 3270- 3280: gı2a | 47107 4770: 22354 
. 410- 420: 35354 1BS0- 1A6a0: 113748 | 3290- 3300: 72697 - s 14 
4790 DATA 2,24,2,23 3,21,1,19 _ . Z71eo 1470- 14880-112542 | 3310- 33204 125777 | g4/507 4760: zusB6 
” ’ı’ ‚. . FE 1990- 1900112901 | 3330- 3340:120451 | 4770- #790: 14444 
450- 280: 32933 _ ’ >30- H E 
48300 DATA 2 y 24 L} 2 L 23 L) 5 „21 E) 1 E} 17 470- 490: 24397 1710- 1920:112603 | 3350- 3360: 112257? FRA anod: a 
i0- 500: 3128 1930- 1940: 116967 | 3370- 3380: 113RB9 “ 
4810 DATA 2 kJ 24 ’ 2 F 23 T = Li 2i 7 2 L 19 Be 520: 24692 1950- 1940: 114367 | 3370- 3406: 67511 _ a er 
530- 540: 35797 1970- 1980: 114094 | 3410- 3420: A064 - : 
4820 DATA 75 17, 1,17 SS50- au: 33082 1990- 2000: 59344 | 3430- 3440: 71045 demo“ aussı ErHe 
1 S70- ScO: 37834 2010- 2020:113451 | 3450- 3460: 32453 - & 
4850 DATA 2 ’ 23; = ’ 7 ’ s „21 ' i ’ 17 =30- #00: 37954 2030- 2040: 79979 | 3470- 34M0: 64883 | 4910- 4720: 27776 
4840 DATA 2,17,2,16,53,17,1,14 an Y20: Zasa2 | Z056- 2066: 1170Ba | 3490- 3500: 45228 | #750- 49403 12225 
’ -. ’ ‚.. FEO- A950: 40547 
530- #40: 37758 2070- 2080: 46484 | 3310- 3520: 25443 | * = ? 
49350 DATA 2,16,2,19,2,16,2,14 #50- weor aosoı | 2990- 2:00: 2570 3350- zu: Jose ago ame Dass 
870- 02 40745 z110- D - Ei = ® 
4860 DATA 5 7 12,2 7 290- a 42817 2130- 2140: 4397 | 3570- 3580: 83552 Fr FE Slac 
„ - s 3390- 3600: 6A318 30- = 
4870 DATA 2,12,1, 12, 1,14,2, 16,2,12 Ber aa aan Airo- Zoo: 2322 3610- 3620: 21825 | 3656- Soed: Me 
- 760: 40753 21970- 2200: 67543 | 3630- 76590: 29181 597097 * 
4880 DATA 2 F 14 ‚4, 17 ‚2 .7 28 Br sa2a4 2210- 2220: 80535 | 3450- 3480: 48205 FOFO- Er ost 
2,.14.72.1 730- AOO: 43043 2230- 2240: 74608 | 3670- 3680: 372914 S110- 51203 ı 
4990 DATA 2,11,1,11,1,12,2, ‚2,11 Bo Bao 37a75 | 2250- 2260: 112688 | 3690- 3700: 17190 | S150- S1a0: 72465 
4900 DATA 2,12,9,722,7 Er a a | a een | Srsan Sonnı aaama | Sm 
i _ 0: 43762 - : - 3 
4910 DATA 2,12,1,12,1,14,2,16,2,12 Boos aosss | 2310- 2326: 111604 | 3780- 3740: 10504 | GESAMTCHECKSUMME: 
. E30- 9004 X1520 2330- 2340: 116534 | 3770- 3780: os6 | DD Hm 
4920 DAFA 2,17,2,17, 3,21, 1,17 10- er 34409 2350- 23603 68550 | 3770- 3200: 50048 19968 
. 30- 940: 79588 2570- 2380: 1748 | 3810- 3820: 78256 
4930 DATA 34 19, 1 F id, 3, 17, 1 ’ 14 227 MR eos 2E90- 2400: 70671 } 3830- 3840: 37701 
- 370- FB0: A374 RR1O- 2420: 44477 | 3850- 3860: 42232 
4740 DATA 8, 12 990- 1000: 33516 2450- 2440: 77919 | 3870- 3BR0:; 72964 
4950 DATA 3 12, 1 Pi 14, 1 7 i&, i 5 14.3, 12 LO1G- 1020: 59343 2450- 2460: 112165 | 3890- 3900: 22576 
1030- 1040: SPS 2470- 2480:112376 | 5910- 3920: 79703 
24940 DAFA 2,17,1,12,15 17,1,136,1,14,1, 12 1050- 1060: 382AL 2490- 25060-113044 | 3930- 3940: 58570 
1070= 10N0: &613B 2510- 2520: 114089 | 3950- 3960: BARS 
4970 DATA 5,19,1,1%,1,i& 1090- 1100: 7p7a0 | 2530- 2540: 116387 | 3970- z900: A568& 
- F 2550- 2550:113704 | 3990- 4000: 35423 
49780 DATA 8,12 1110- 1120: 28756 | 755 75805 - : 
F 1130- 1190: 48353 25759- 75807 114430 | 4010- 4020: 83353 
50- il&0s 26727 7590- 2600: 113972 | 4030- 4040: &1632 
4990 DATA 3,12,1,14, i F 16, 1 „14,5, 12 1190- an 96178 Bero- 2626: 54002 | 4050- 4080: 55118 
. F 2 2630- 2640: 17474 | 4070- A0R0+ 45513 
5000 DATA 2,17, 1,12,1,17,1, 16,i,14,8, 12 on FE sn 7650- 2660: 121761 | 40970- 3100: 73346 
5010 DATA 5,19,1,14,1,16& 1230- 1240: 37208 | 2670- 2680: 11AB6B | 4110- 4120: 57657 
’ ’ ’ ’ ’ _ ı 26 90- 7700: 125056 3130- 4140: 87155 
1250- 17260: &4ZB0 
5020 DATA 4,12 1270- 1280: 41357 2710- 2720:11913® | 4150- 4160: 51094 
_ 2r730- 2740: 1156973 4170- 4180: 59728 
S050 DATA 2,1,4,2,3,.1,243,171431,2,2,1 12307 1500: SO | Srsa- 2760: 117980 | 170- 2200: 43708 
1330- 1240: 5282 2770- 2780: 123260 | 4219- 4220: &1440 
5040 DATA 5,1,8,2, 8,1,8,2,2,i 1350- 1360: 5390 2790- 2800: 66695 | 4250- 4240: 47587 
— F} 2B810- 2820: 57157 4250- 4240: 493237 
5050 DATA 72,1,4425431,2,3,1,1,1,2,2,1 ae SISSe | Zeso- 2040: 70092 | 4270- #200: 42308 
5080 DATA 2,1,2,3422,2344132433323 25231 
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Sind Aufwendungen | 


Haben Sie schon mal darüber nachgedacht, ob Sie vom Finanzamt einen Teil des Kaufpreises 


report 


Ihres Home- oder Personalcomputers zurückholen können? Für alle, die sich 1985 einen Ho- 


haben, ist es wichtig zu wissen, unter welchen Voraussetzungen das Finanzamt derartige Auf- 
wendungen als Werbungskosten anerkennt. 


Die Finanzämter tun sich zur Zeit noch schwer 


- mit der steuerlichen Behandlung der Aufwen- 


dungen für Heimcomputer als Werbungskosten. 
Eine gewisse Klarheit hat nun eine Verfügung 
der Oberfinanzdirektion Köln vom 26. 7.1985 (5 
2354/27/$1 121) gebracht. Danach ist zunächst 
zu prüfen, wie der Computer heschaffen ist und 
welehe Einsatzmöglichkeiten er eröffnet. 

Handelt es sich um einen sogenannten 


: Spiele-Computer, so spreche schon der 


objektive Charakter des Wirtschaftsgutes 
dafür, daß es nur privat verwendet wird. 


Aktentaschen- und Pocket-Computer da- 


| gegen seien aufgrund ihrer technischen 
: Gestaltung regelmäßig für eine berufliche 


; Verwendung gedacht und nicht geeignet 
| füreine private Nutzung, insbesondere für 
| Heim- und Videospiele. 

| Bei Computern, die wegen ihrer Beschaf- 
| fenheit eine berufliche und eine private 


Nutzung zuließen (z.B. solche mit Casset- 


| ten- oder Diskettenlaufwerken, Schreib- 


maschinentastatur, Bildschirm, Drucker), 
lasse der objektive Charakter des Wirt- 
schaftsgutes nicht ohne weiteres auf den 
tatsächlichen Verwendungszweck schlie- 
Ben. 

Es könne grundsätzlich davon ausgegan- 
gen werden, daß die Kosten für solche 
Computer, z.B. Commodore 64, Atari 600 
XL, Dragon 32, Aufwendungen für ein ge- 
mischt genutztes Wirtschaftsgut seien. 
Die Anschaffungskosten könnten deshalb 
bei diesen Computertypen regelmäßig 
nicht einfach und nach objektiven Maß- 
stäben leicht nachprüfbar in einen berufli- 
chen und privaten Teil aufgeteiit werden. 
Diese Kosten könnten vielmehr steuerlich 
nur dann berücksichtigt werden, wenn 
der Steuerpflichtige nachweise oder 
glaubhaft mache, daß er den Computer so 
gut wie ausschließlich beruflich nutze. 
Um ein unvertretbares Eindringen in die 
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Privatsphäre des Steuerpflichtigen zu ver- 
meiden, müßten die Kriterien einer so gut 
wie ausschließlich beruflichen Nutzung 
typisierend geprüft werden. Hierbei kä- 
men insbesondere folgende Gesichts- 
punkte in Betracht: 

- Arbeitet der Arbeitnehmer mit käuflich 
erworbenen berufsspezifischen Program- 
men, so spricht dies für die Anerkennung 
als Arbeitsmittel. 

- Erstelit der Arbeitnehmer eigene Pro- 
gramme, so muß er hierfür über Grund- 
kenntnisse verfügen. Will er mit Hilfe des 
Computers diese Grundkenntnisse erst 
gewinnen, spricht dies zunächst für die 
private Mitveranlassung. Wenn aber das 
Erwerben der Grundkenntnisse beruflich 
notwendig oder sinnvoll ist, z.B. um selbst 
berufsspezifische Programme zu entwik- 
kein, können die Aufwendungen als Wer- 
bungskosten angesehen werden. 

- Beruft der Arbeitnehmr sich darauf, daß 
in seinem Betrieb mit Computern gearbei- 
tet wird und er sich deshalb zu Hause auf 
seine Berufstätigkeit vorbereiten müsse, 
so ist darauf abzustellen, ob der Arbeit- 
nehmer zu Hause ein Gerät hat, dessen Er- 
gebnisse im Betrieb technisch weiterver- 
arbeitet werden können. Anderenfalls 
dürfte der Erwerb des Gerätes privat mit- 
veranlaßt werden. . 

- Auch Arbeitnehmer, die ihre Geräte im 
Rahmen der allgemeinen Lebensführung 
erworben haben, verarbeiten mitunter 
nach dem Erwerb der Grundkenntnisse 
Probleme aus ihrem Berufsbereich. Hier 
können die Absetzungen für Abnutzung 


Werbungskosten sein, wenn der Gompu-. 


ter jetztso gut wie ausschließlich beruflich 
genutzt wird. 

- Ein hoher finanzieller Aufwand (etwa ab 
2.000 DM) kann für die fast ausschließli- 
che berufliche Veranlassung sprechen. 
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- Das gleiche gilt, wenn der selbst ange- 


.schaffte Computer am Arbeitsplatz des 


Arbeitnehmers steht. 

- Das Fehlen eines Druckers wird beson- 
ders bei Lehrern gegen eine so gut wie 
ausschließlich berufliche Nutzung spre- 


könne glaubhaft machen, daß er Ergeb- 
nisausdrucke nicht benötige oder auf an- 
dere Weise erhalte. 

- Hat der Arbeitnehmer in Ausbildung be- 
findliche Kinder, so kann widerlegbar eine 
private Mitbenutzung des Gerätes vermu- 
tet werden. 

Die Oberfinanzdirektion Köln weist darauf 
hin, daß Aufwendungen für einen Compu- 
ter nicht objektiv für den Berufnotwendig, 
üblich oder zweckmäßig seien. Es genüge 
regelmäßig, daß der Arbeitnehmer die 
Aufwendungen für die Berufstätigkeit für 
geeignet halten konnte. 

Sei aber zweifelhaft, ob es sich bei Auf- 
wendungen um Werbungskosten oder um 
nicht abziehbare Kosten der Lebensfüh- 
rung handele, so könne die Unüblichkeit, 
Nichtnotwendigkeit oder Unzweckmäßig- 
keit der Aufwendungen ein indiz, gegebe- 
nenfalls sogar eine unwiderlegbare Ver- 
mutung für den privaten Charakter der 
Ausgabe sein. 

Seien die Aufwendungen für die Anschaf- 
fung eines Computers ausnahmsweise 
beruflich veranlaßt, so sei regelmäßig von 
einer betriebsgewöhnlichen Nutzungs- 
dauer von fünf Jahren auszugehen. 
Auch die Oberfinanzdirektion Düsseldorf 






. mecomputer oder Personalcomputer zulegten, und für alle, die entsprechende Kaufabsichten 


.chen, es sei denn, der Steuerpflichtige 


weist in ihrer Verfügung vom 14. 10. 1985: 
darauf hin, daß Aktentaschen-Computer | 


unstreitig nur beruflich genutzt würden. 
Hier bestünden also keine Bedenken, den 
Anschaffungsaufwand als Werbungsko- 
sten abzusetzen. 
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Doppelveröffentlichungen 


Als Abonnent der Zeitschrift „Compute mit“ 
muß ich mit Bedauern feststellen, daß der 
„Geist“ sehr schwach ist! Innerhalb der letz- 
ten Ausgaben wird kostbarer (von uns bezahl- 
ter) Platz mit Duplikationen voll gedruckt. Nur 
weiter so! Den Checksummer GPG kann man 
- noch öfter bringen. Je. Mertig, Stephanskirchen 











Redaktion: Natürlich ist der „Geist“ in unserer 
Zeitschrift - so glauben wir jedenfalls - noch 
nicht schwach. Bisher haben wir so qut wie 
möglich versucht, Doppelveröffentlichungen 
auszuschließen. Die Checksummenprogram- 
me für die einzelnen Systeme müssen leider 
mehrmals abgedruckt werden, da es ein neu- 
es Verfahren ist und auch neue Käufer dieser 
Zeitschrift nicht auf diesen Service verzichten 
sollen. Aber wie Sie sicherlich in dieser Aus- 
gabe feststellen werden, wird der Schneider- 
Checksummer nicht mehr veröffentlicht. Al- 
len neuen Leser können sich jedoch jederzeit 
an den Tronic-Verlag wenden und dort die er- 
forderlichen Unterlagen nachfordern. 
















Adventure- und Actionspiele 
für 6-16/116 


Ich besitze einen C-16. Bisher bin ich mit!hrer 
Zeitschrift zufrieden. Aber könnten Sie nicht 
einmal ein Adventure oder ein Action-Spiel 
abdrucken? Außerdem möchte ich Sie bitten 
eine Liste verschiedener POKES abzudruk- 
ken. Dann möchte ich Sie fragen, ob das Li- 
sting „Helmut“ aus Heft 1 korrekt ist. Bei mir 
sind keine Zeitschwerter auf dem Bildschirm 
zu sehen, Carsten Blunck, Oldenburg 












Redaktion: Innerhalb der Redaktion und unse- 
rer Programmierabteilung machen wir uns 
laufend Gedanken über die Programmange- 
bote für die einzelnen Systeme. Unter der Ru- 
brik Tips & Tricks werden daher auch ständig 
nützliche Informationen weitergegeben. Bei 
der Auswahl der Spiel-und Anwendungspro- 
gramme muß man natürlich auch nach der 
Programmlänge entscheiden. Adventurespie- 
le sind aufgrund Ihres Charakters meist je- 
doch sehr umfangreich und somit auch bei ei- 
nem Abdruck in der „Compute mit“ äußerst 
platzraubend. Wir empfehlen Ihnen jedoch 
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'” „ “erhalten Sie mit der „Pfeil nach oben Ta- 


darauf zu achten, ob in der von unser Redak- 
tion geplanten „Compute mit C-16/116 Son- 
derausgabe“ - die für die Osterzeit geplant ist 
- solche Programme veröffentlicht wurden. 
Das Listing „Helmut“ war korrekt. Bitte über- 
prüfen Sie Ihr Programm nochmals sehr sorg- 
fältig auf evtl. Eingabefehler. 


Zeichenprobleme 
beim 6-54 und VC-20 


Wie bekomme ich dieses Zeichen " A “ auf 
den Bildschirm, welches im Grafikteil ver- 
schiedener Programme vorkommt? Nennen 
Sie mir bitte die entsprechenden Tasten. 
Ralf Davids, Ruethen 3 

Albert Meyer, CH-Geroldswil 


Redaktion: Das von Ihnen gesuchte Zeichen 


ste“. Diese Taste enthält das Potenzierungs- 
zeichen. Sie finden Sie auf der Tastatur links 
neben der Restore-Taste. 


Gibt es einen 6-16 Checksummer? 
In Ihrer Zeitschrift werden die Listings für den 
C-64 und Schneider-Gomputer mit „Check- 
summer“ aufgeführt. Ich möchte Sie fragen, 
ob dies nicht auch bei den Listings für den 
Commodore 16/116 möglich ist? 

H.J. Gertlowski, Kerken 


Redaktion: Nachdem ab dieser Ausgabe auch 
ein Checksummenprogramm für den VG-20 
veröffentlicht wird, fehlt nur noch der C-16/ 
116 im Angebot dieses Eingabeservice. Unse- 
re Programmierabteilung ist derzeit mit der 
Entwicklung eines solchen Programmes be- 
schäftigt, so daß auch die Anwender des C- 
16/116 bald diesen Service in Anspruch neh- 
men können. 


„Eigentor“ 


In Heft 1/86 schreiben Sie noch von fehler- 
freien Programmen und in der gleichen Aus- 
gabe haben Sie ein Programm mit einer feh- 
jerhaften Zeile abgedruckt. Es ist das Pro- 
gramm „Mehr Spaß in den Hackerbuden“ für 
den Commodore 64. Dort heißtesin Zeile 140: 
POKE 48980 +i,asc (mid$(a$,1,). Wenn diese 
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Änderung vorgenommen wurde, finde ich das 
Programm ganz gut. Ihre Zeitschrift ist spitze! 
Michael Klanert, Dortmund 


Redaktion: Vielen Dank für den Hinweis auf das 
fehlerhafte Programm. Nach der Korrektur 
funktioniert es tatsächlich. Hier hat man wie- 
der einen Beweis dafür, daß auch wir nicht frei 
von Fehlern sind und uns hin und wieder auch 
kleine Unzulänglichkeiten unterlaufen kön- 
nen. Wir bitten um Entschuldigung! 


Mehr Programme für den 6-16/116 


Zum zweiten Male habe ich mir die „Compute 
mit“ gekauft, weil ich seit kurzem einen C-16 
besitze und Ihre wenigen Seiten in Ihrem Ma- 
gazin so ziemlich die einzigen sind, die es auf 
dem gesamten Zeitschriftenmarkt gibt. Wenn 
man bedenkt, daß die anderen Computer 6- 
64, Schneider, Atari, MSX usw. Monat für Mo- 
nat mehrere Magazine füllen, verstehe ich 
nicht ganz, warum auch Ihre Zeitschrift sich 
mit diesen Systemen beschäftigt. Warum ist 
es nicht möglich, einmal im Monat mehr In- 
formationen für den G-16/116 zu bringen. 
Vielleicht starte ich mit diesem Brief eine in- 
teressante Leserumfrage, bin ich doch über- 
zeugt, daß ich nicht allein mit meiner Meinung 
dastehe. H.-J. Schwandt, Aachen 


Redaktion: Mit ihrer Meinung stehen Sie si- 
cherlich nicht allein. Die Überlegungen über 
dieses Problem sind in unserem Hause auch 
schon angestelit worden. Sicherlich ist ein 
Magazin für den C-16/116 für alle Besitzer die- 
ses Systems recht interessant. Leider ist im 
internationalen Software-Bereich diesem Sy- 
stem noch wenig Beachtung geschenkt wor- 
den, so daß kaum Neuerscheinungen auf dem 
Markt vertrieben werden. Auch der Hardwa- 
re-Bereich ist bisher sträflich vernachlässigt 
worden. Wir haben uns jedoch entschlossen, 
eine Sonderausgabe für dieses System zu 
veröffentlichen, die sich auch bereits in der 
Vorbereitungsphase befindet. Dort werden Sie 
dann Infos, Prgramme, Tips & Tricks und vie- 
les mehr über den C-16/116 nachlesen kön- 
nen. in übrigen sind wir auf die Meinung der 
Leser zu diesem Thema wirklich sehr ge- 
spannt und bitten deshalb um entsprechende 
Zuschriften. 
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Wer hat sich nicht schon oft geärgert, wenn ereine Bildschirmmaske erstellen wollte und die 
PRINTs waren nicht. richtig positioniert, der falsche Schreibstift verwendet. oder eine Ink 


falsch gesetzt, da man die optimale Belegung erstim Zusammenspiel mitden anderen Bild- 


schirmteilen erkennt? Da’däuert es nicht selten fast eine halbe Stunde, bis eine Bildschirm- 


] maske richtig steht. 


| Aber SCREPRI schafft hier Abhilfe! In 





Sekundenschnelle sind nun Bildschirmmasken für 


4 Adventures, Dateiverwaltungen, Programmerläuterungen etc. erstellt und PETKEZTF 0707; 
‚dann als Basicprogamm im Speicher des CPC 464. a Er e u 





Doch nun etwas konkreter. Bei SCREPRI 
handelt es sich um ein Maschinencode- 
programm, das es erlaubt, auf bequemste 
Art und Weise Bildschirmmasken zu er- 
stellen. Sie müssen entweder das Assemn- 
blerlisting oder - was eine schwierige 


| Aufgabe ist, wenn Sie keinen Assembler 


besitzen - den Basiclader eintippen und 
starten. Der Basiclader erzeugt das Binär- 
file SCREPRI.BIN automatisch, beim As- 
sembler müssen Sie dieses mit ’SA- 
VE”SCREPRI.BIN“,B,&9900,855F‘ von 
Hand kreieren. Wenn Sie nun SCREPRI 
benötigen, geben Sie MEMORY &98FF 
ein, laden SCREPRIBIN und rufen es mit 
Call &9900 auf. Es belegt den Speicher- 
platz zwischen &9900 und &A570 und ist 
somit auch unter AMSDOS lauffähig. SC- 
REPRI besitzt folgende Features: Ink be- 
trachten, Ink setzen, Mode setzen, 
Schreibstift setzen, Drucken ei- 
nes beliebigen Charakters, Ab- 
brechen, Delete, Cursorsteue- 
rung, Ausgabe der aktuellen Cur- 
sorposition und Erstellen eines 
Basicprogrammes. Die meisten Fea- 
tures werden mit Controllcodes, d.h. 
durch gleichzeitiges Drücken der CTRL 

| und einer anderen Taste aufgerufen. Fol- 
gende Gontrolicodes sind beiegt: 


. CTALP: 

Anderung des Schreibstiftes; nach GTRL- 
| P muß eine Zahl zwischen 0 und 15 (bei- 
. des inclusive) angegeben werden; Zahl 

größer als 15 bricht das Kommando ab; 
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ETALW: 

Augenblickliche Cursorposition wird in 
physikalischen Koordinaten im unteren 
linken Eck des Bildschirms angezeigt. Er- 
neuter Tastendruck stellt den alten Inhalt 
der überschriebenen Positionen wieder 
her. Diese Funktion ist vor allem zum Er- 
stellen von Tabellen etc. geeignet, wo es 
nötig ist, z.B. bestimmte Abstände einzu- 
halten. 

CTRL-B: 

Bricht das Maschinenprogramm ab und 
kehrt zu Basic zurück. Um einen unbe- 
achtsichtigten Abbruch zu vermeiden, 
muß die Taste zweimal betätigt werden. 
Bei Eingabe einer anderen Taste nach 
CTRAL-B wird das Kommando abgebro- 
chen; 

CTRL-C 

Andern des Modes; gewünschten Mode 
eingeben; Zahl größer als 2 bricht das 
Kommando ab; 

GIRL-E: 

Legt die Bildschirmmaske als Basicpro- 


‘gramm im Speicher ab; 


GIRL: 

Diese Funktion istin Ink setzen „S“ und Ink 
betrachten „G“ unterteilt. CTRL-I+,$“ 
(groß S!) = setzen einer Ink, Es müssen 
nacheinander die Inknummer, die 1. Farbe 
und die 2. Farbe eingegeben werden; 
CTRL-H,G“ = Ink betrachten, Inknummer 
angeben; erste und zweite Farbe stehen 
im linken unteren Eck. Erneuter Tasten- 
druck stellt den alten Zustand der Position 
wieder her; 
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CTAL-G: 
Drucken eines beliebigen Charakters zwi- 
schen O und 255 (beides inclusive). AS- 
Cli-Code des Zeichens eingeben. 

Die Steuerung des Cursor erfolgt mit den 
Cursortasten. Das Kommando Delete 
(DEL-Taste) löscht das Zeichen links.vom 
Cursor und zieht den Rest der Zeile um ein 
Zeichen nach links. 

Die Zahleneingaben müssen in dezimaler 
Form erfolgen und mit Enter abgeschlos- 
sen werden, 

Das sich, nach der Beendigung des Arbei- 
tens mitSCREPRI, im Speicher befindliche 
Basicprogramm (das alte wurde ge- 
löscht!) können Sie nun zu dem Pro- 
gramm, für welches Sie die Bildschirm- 
maske benötigen, mit ’MERGE”{Filena- 
me), hinzufügen (evtl. Renumerieren 
nicht vergessen)). | 

Sollte einmal der Cursor verschwunden 


‚sein, liegt das daran, daß Sie einen tal- 


schen Schreibstift gewählt haben. Wenn 
SCREPRI scheinbar nicht mehr auf Ihren 
Tastendruck reagiert, dann haben Sie un- 
beabsichtigt eine Funktion aufgerufen, 
welche nun auf die Eingabe einer Zahl 
wartet. In diesem Falle ist es am günstig- 
sten 16 einzugeben. 

Normalerweise bleibt SCREPRI im Spei- 
cher erhalten und Sie können es mehr- 
mals hintereinander aufrufen, es sei denn, 
der HIMEM wird erhöht oder der Basicin- 
terpreter'wählt seinen 2K-Block für Kas- 
settenoperationen aufgrund akuter Spei- 
cherplatznot oberhalb &9900. 
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58 


Programme 


1O TrTtrreterereeererer rer rennen 
20 ' SEREFPRI (Basic-Lader)} 

Version 1.0 ' 
DPA 
40 ° te)19B5 by DUCKsoft 
so ‘ Thomas Gnach 
60 ' Offersdorf 5 
70 ' 9491 Rimbach 


Pur Zur zur Sur Br Zu Zur Br Er Ber Er Zr Zur ur Zur Zur Zr Ze Ze Br Zr ZZ Zur Zr Ze 


100 MEMORY &9BFF ı BORDER &0 ı 
: INK %&1,%F ı MODE &1 

110 FOR adr=&97900 TO BKIESF 
120  READ byter checkschecktbyte ı PÜKE 
adr ,byte 

130 NEXT adr 

130 IF cheek<>172119 THEN PRINT 

ror!!# » END 

150 LOCATE 17,1 ı PRINT "SCREPRI" 

1680 LOCATE 1,3 ı PRINT "Abspeicherung de 
s Objektcodes” e FRINT 

170 SAVE "screpri.bin" „5,7900, ESSF 

180 END 

190 ' der Maschinencode 

200 DATA 21,560, KHE,&01,8&00,%00,836, 614 
‚803,423, LCB,%58,8&29,&F8,&CD 

Z10 DATA W4E,SBB,&CD,&6C,&BB,&CD,%81,&BB 
s&CD,&17,%8BC,%04,&79,832,85& 

220 DATA &:A5,8&21,&01,%01,&CD,&75,&BB,&CD 
‚&06,&BB,%421,%250,&9E „806, &11 

230 DATA &BE,%28,&5,823,810,&FA,821,&43 
‚IE ,&O5,&ÖOD,&BE,&28,%&09,523 

249 DATA &10,&FA,&CD,&20,598,03,825,477 
shFE,&F1,%28,444 ,&FE,&F2,828 

250 DATA 350,&FE,&F3,&29,65C0,&FE,87F,828 
Eh, ,SFE,RLIO,SCA,&14,UIA,SFE 

2640 DATA %817,8CA,&2A,59A,&FE,&09 ,8CA,%5D 
‚R9A,BFE,&O2,SEA,&F4,29A,&FE 

270 DATA &05,8C0A,%45,8&98B,&FE,803,&CA,&FD 
‚kFA,&FE,LOD,SCA, SOE,29B,&FE 

280 DATA %&07,&C4,844 ,&9B,&CD,%&79,&BB,&7D 
„&FE ,&O1,:CA,%25, 3:99, 62D,&CD 

290 DATA &75,&BB,8C3,425,%99,&CD,478,&BB 
‚B&7D,SEFE,417,5CA,625,8977,&2C 

300 DATA &CD,&75,8EB,%03,%25,&99,&CD,%&78 
„SBB,„&7C,&FE,%01,&CA,&25,%9% 

310 DATA %&25,&CD,%75,&BB,:03,%&25,&99 ,&CD 
‚&78,&BB,23N, 856,6, &BC,&CA 

320 DATA 325,&99,&24,&C0D,%75,&BB,E3, &28 
‚77 ,SCD,478,%08,&3E,&01,&BC 

3390 DATA %CA,&25,%99,BCD,%93,&BB, UFS, yes 
‚&25,2E5,&CD,&75,&BB,5E1,&3A 

340 DATA 156 ,u06.,594 847,424 ,‚&05,8ES LCD 
‚&75,&EB„&E1,%ES,&CD,&16,&9D 

350 DATA R7E,SFE, Liä ‚28,403, LCD, 870, 55 
„BED,&3IA,SID,%E1,&25,8ES,&F5 

360 DATA &CD,%75,&BB,&F1,&CH „E20 ,&7B,REI 


INK &0,&0 


"DATArer 


Gompute mi 


„&C1,%24,%410,&DA,&E1,8ES5,&7D 

370 DATA &FE,&19,828,&05,43E,&20,&0D,&20 
+&FB „SEI ,&25,&CD,&75,8BB,&Fi1 

ZE0 DATA &CD,%90,&BB,&03,&25,%99 ,&ED,&59 
„&9D,%&06,&10,&CD,&D2,&3D,&DA 

390 DATA &25,&99 ,BFE ,&00,80A,&25,8&79,&CD 
,&90,868,%03,&25,&79,2C0D,&73 

400 DATA &BB,&FS,RCD,&78,&BB,RES,BCD,&BE 
„&9C ,&21,&19,&01,&CD,&75,%BB 

410 DATA &E1,8E5,&7C,&CD,&D5,%90,&3E ,&2C 
„&CD,&5A,&BB,&E1,&E5,&7D,&CD 

420 DATA &D5,&7C,8CD,%06,&BB,ECD,SKFA,RSC 
‚&E1,&CD,&75,%BR,&F1,&CD,&70 

430 DATA Z2BB,&03,%25,%99,&CD,&06,&BB,547 


„BFE,&47,828, 805, &FE,853,&C02 


440 DATA &25,%99 ,&CD,893,&BB,&F5,&0D,&78 
„BB ,&ES,LC5,8CD,&BC,&PC CD 
450 DATA &59,890,&06,&0F ,&CD,&D2,%&9D,&C1 
„#38 ,&IE,LC5,847,&F1,&FE,547 
450 DATA &28,&42,&C05,&CD,%59,&9D,806,&1B 
„BCD,&D2,L9D,%38,&F6,847,%21 
470 DATA %&19,&01,&CD,%75,&BB,2C05,878,&CD 
‚&D5,&90 ,&3E ‚420 ,&CD,&5A,&BB 
480 DATA &CD,&59,89D,%06,&1B,&CD,&D2,&9D 
„38 ,LF& 201 ,KAF CS ,LCD ‚DS 
490 DATA &9C,&C1,&F1,&CD,&32,&BE ,BED,&O& 
‚&BE,&CD,&FA,&IC, SEI ,&CD,&75 
500 DATA &BB,&F1,&CD,390,&BB,803,825,899 
‚478, &CD,%35,&BC ,&C5,821,6197 
510 DATA %&01,&CD,%&75,&BB,&78,&CD,&D5,&9C 
‚&3E,%2C ,LCD,&SA,&BB,&C01,&79 
520 DATA &CD,&DS,%7C,&CD,%06,&BB,&CD,&FA 
„&9C,&E1,&CD,&75,&BB,&F1,&CD 
530 DATA &90,&BB,&03,%25,%99,&CD,&06,&BB 
„BFE,&02,2CB,8C03,%&25,899 ,&CD 
540 DATA #59,59D,&06,&02,&C0D,&D2,&7D,&DA 
‚825,899 ,SCD,2OE,&BC 203,800 
550 DATA %&99,%C0,%78,&BB,&3E,819 ,&BD,&CA 
„525,899 ,426,%01,&20,&CD,&75 
560 DATA &BB,403,825,899 ,4F5,5C0D,&78,&BB 
‚&3E,%19,&BD,%20,&06, 834,856 
570 DATA &A&,&BC ,&28,%0E,&CD,&16,%9D,8E5 
„&CD,&93,&BB,&E1,&77,&F1,&CD 


580 DATA &54A,&BB,%&C09,&F1,&3E,&07,8C0D,&5A 


„&BE,%C9,8C0D,%78,&BB,&3E,&19 

590 DATA &BD,&20,807,43A, 456, A ,&BC,&CA 
‚825 ,%&79,8C0D,%16,&9D,%E5,&CD 

&00 DATA %&93,&BB,&E1,&77,&CD,&59,&9D,&CD 
‚&5D,%&BB,203,%25,899,&DD,%2A 

&10 DATA &B1,&AE,LDD,&73,&DD,%22,&5D,&A& 
‚&DD,%23,%&DD,%&23,&DD ,&36,&00 

620 DATA &OA,&DD,&23,&DD,%35,%00,&00,8&DD 
&23,%&01,%&04,%10,805,%05,&DD 

630 DATA 836,800 ,&A2,%DD,&23,&0C,&DD,%36 
„»00,%20,&DD,%23,%00,%78,&CD 

640 DATA BEO,&9D,&DD,%36,&00,%2C,&DD,%23 
„&OC „&C5,&78,&C0D,835,&BC ,&59 

650 DATA %&78,&C1,&CD,&EO,&9D,&DD,&364,&00 
‚&2C,&DD,»23,8200,87B,&CD,&EQ 

&50 DATA &9D,&DD,&34,200,&01,&DD,&23,&0C 
„79 ,&C1,84F,%10,8C03,8CD,&F8 

&70 DATA &9D ,SOE,&00,&DD,&22,&5D,&A6,&DD 
„&23,&DD,%23,&DP,%36,&00,%14 


3/86 


3/86 


| 680 DATA &DD,&23,&DD,&36,&00,%00,&DD ,%23 
' ,&DD,&36,%00,&AD,&DD,&23,&DD 
690 DATA %36,&00,420,%0D,%23,L0E, 206, &CD 
„&11,&BC,&CD,&EO,&9D,&DD,&36 
700 DATA &00,%&01,&DD,%23,800,&21,&60,&3E 
‚E7E ,EFE,&14,823, 828,3 FA,&32 
710 DATA &BF, LAb,&DD 234,800, %BB,&DD,&23 
„&DD ,%36,&00,&20,&DD,&23,&CD 
720 DATA &EO,&ID,KOLC,LOC,&ED,&FB,&ID,&21 
| ,801,&01,&11,&28,800,805,&17 
1: 730 DATA &C5,83A,856,&A6,847,&C0D,&0B,&0E 
' „&ES5,&CD,%75,&BB,&05,800,&16 
740 DATA &9D,&01,&7E,&FE,&14,829,807 „3A 
‚SF „&A&, BE „02,850, 890 ,&D5 
750 DATA &CD,&SA,&OD,&Di, &DD ,&77,%00 ,&DD 
»&23,2OC,LE1,%24,810,&DC,&CD 
760 DATA %&34,&9E ,&CD,3F8,&9D,8C3,&79 ,&90 
| »&CD,&34,29E ‚&DD,&36 ,&00,%01 
|. 770 DATA &DD,%&23,&00,&DD,%&36,%00,&BB,&DD 
; »823,S00,&DD,&34,&00,%20,&DD 
780 DATA &23,80C,%7E,&32,&5F ,&A6,&CD,LEO 
»&9D,&CD,&F8,29D,&CD,&OB,&IE 
790 DATA UE1,803,%823,89C,820,%26,%01,&01 
's&10,89C0,&DD,%36,&00,800 ,&DD 
800 DATA &23,8&DD,&36,8&00,&00,&DD,&23,&DD 
‚436,800, 800 ,&DD,%22,&5D,%A6 
810 DATA &2A,&5D,&A6, kED,&5B,&81,&kAE,&ED 
‚%52,%44,&4D,&CD,&00,&B9,8F5 
820 DATA &CD,%2C,&F5,&F1,&CD,&OC ,&B9,809 
: 1857 ,&06, &0A,&78,&C6 ‚K2F „&BA 
: 830 DATA &28,%&04,&10,&F8,&37,&09,&78,&3D 
„837 ,u3F ‚809 ,%06,&06, 811,857 
840 DATA &A&,S2E,&197,&60,8ES,&05,8D5,&CD 
| ,&75,&BB,&CD,&34,&9D,2D1,812 
|: 850 DATA &13,%C1,&E1,&10,&EF ‚509,837 ,&06 
 ,%00,%&04 ,&D&,80A,&F2,3D8,%9C 
840 DATA 878,806, &2F ‚&CD,&5A,3BB,&FE,AZF 


1: 828, KOF ‚805,897, 506 ,20A,&10 


|: 870 DATA 8FC,647,878,890, 605,630 ,&CD 5A 
I s&BB,809,&97,&18,4F4 811,857 
| 880 DATA SA&,&06,&06,E2E ,&19,&60 LCD ,&75 
u ‚„&BB,&C5,&CD ‚&16,&9D,&01 87E 
: 890 DATA &CD,%70,&BB,&1A,8&13,&CD,&5A,&BR 
„&10,8EA,&C97,&CD,&78,&BB,&DS5 
900 DATA &ES,845,&21,%&00,800 ,&05,87B,&FE 
‚&00,428,509,u3A 856, Ab ,&5F 
710 DATA &16,%&00,819,&10,&FD,&D1,&5A,&1D 
‚616,800,819,8&11,360,89E,&19 
"920 DATA %&D1,8&C9,8C05,&C0D,893,&BB,&F5,&CD 


|. »&16,&9D,&7E,&FE,514,&28,80E 


930 DATA LCD,&90,LBB,&CD,&60 ,&BE,&57,8F1 
„&CD,&70,&EB,&7A,&C1,&C9,LIE . 

940 DATA %20,%18,&F4,&CD,&06 ,&BB,ECD,KAA 
„890,838, 878,832, 853, 8A6,&CD 

950 DATA &06,&BB,&57,&FE,&OD,&28,&721, u7A 
| „&CD,&AA,&IC,&38,5F2,832,854 

| 960 DATA &A6,8CD,&06,&BB,%57,2 FE ,LOD,&20 
‚&10,&7A,&CD,&AA,&9C,&38,&F2 

970 DATA &32,855,&A6,&CD,%06 ,LBB,&FE,&OD 
%20,8F9,&5A,&53,&A6,KAF 83a 

980 DATA &54,&A6,857, 234,855, hA6,&5F „&3E 
‚814,%32,853,&h6,832,854 8A6 

970 DATA &32,855,&A6,&7B,8&FE,&13,8&20,804 


z 


Sompubs mi 


programme 


„BSA,&51,K0OE,%00,87B,&FE,&14 
1000 DATA &20,802,874,&09,&7A,&FE,&OO,&2 
8,812,&7B,842, 306 ,20A,&10,&FC 


1010 DATA 5:57, ,&77,BFE,&00,8:7C0, 808,841, u 


6,564, &10,& FC ,&09,&79,BFE,800 

1020 DATA &75,L09,&18,8F3,8F5 ,857,878,89 
2,8F2,&DE,&ID,&F1,&37, 809 BF 

1030 DATA &37,&3F,809 ,SFE,&OA ,&F2,LEA,&? 
D,%C6,&OE „&C3,&F1,%9D,&DD,&3& 

1049 DATA &00,%&19,&DD,&23,&06,&DD,&77 ,&0 
0,&DD,&23,&00,%C07,&DD,&34,&00 

1059 DATA %00,&0D,8&23,&0C,&FD,&2A,&5D,&A 
6,&FD,&71,800,&FD,&36, 601 ,&00 

1060 DATA 8C9,&DD,&22,&5D ,&A6,&DD,&23,%&D 
D,&23,&DD,&73,&00 ,&DD,&23,&DD 

1070 DATA &72,&00,&DD,&23,&DD,&36,%00,&B 
F,&DD ,&23,&DD,&36,%00,%22,&DD 

1080 DATA &23,&0E ‚806 ,BES,&21,20A,&00,&1 
9,854 ,%5D,&E1,&09,&DD,336,&00 

1070 DATA &22,%&DD,&23,&0C,&DD,&36,&00,&3 
B,&DD,&23,800,809,&0D,&7F ,&FO 

1100 DATA &F1,8F2,8F3,410,517,%09,602,80 
3,%05,8&07,%01,&04 ‚206, LOB ,&OA 

1110 DATA 208,800 ,%OE,LOF,&15,&16,&18,&i 
9,&1A,&1IC,KiF 


ssa35 | 
53008 
ı B0S542 
4501 40 
470: 60197 
470: 43499 
5103. 39414 
530: 53146 
S50: 57924 
570: 89072 
5901 82014 
ı 59343 
53974 
59195 
565072 


3901 
410: 


56933 
55283 
» 57911 
» 55587 
ve 5ib5l 
= 51344 
sor2E 
s9351 
39249 
32673 
55997 
E0OBSD 
Saas 
57933 
. 55751 
1110: 72965 


CHECK VLEPRUEFSUMMENT 


ZEILENNR.: SUMMEN 

10 20: 2944A 
» 45057 
= 41122 
ı 453374 
40044 
F7aZ 
rig&2 
5842 
=: ZU883 
SS402 
SZASS 
» 59424 
ı 66347 
40907 
0b? 
0442 
59494 
58383 


630: 
‚650: 
870: 
5708 
710: 
730r 
7503 
F7Or 
7903 


7615 
55873 
54706 
58525 
56222 
S9:0& 


1100- 


GESAMTCHECKSUMME: #08B51 


für den cpe 464 B 
Grafische Bewegungen mit dem PRINT-Befehl 





Haben Sie schon einmal mit Hilfe eines PRINT-Befehis versucht 


eine Graphik auf dem Schneider zu bewegen. 
Sie meinen, das kann nicht funktionieren? Oh, doch! Herr Kriza- 


nac aus Burgdorf hat es mit Hilfe eines Tricks geschafft, dieses 
Problem zu verwirklichen. Tippen Sie das nachfolgende Listing 


ein und Sie werden den Effekt sehen. 


Sind Sie nieht auch der Ansicht, daß der Autor mit diesem klei- 
nen Trick einen ganz beachtfichen Erfoig erzielt hat? 


Programm Listing siehe nächste Seite c> 


| 


59 


werkstatt. 


190 ORIGIN 320,200 


Ko ee = > 2 0 5 © 3 0 002.8 .2 2 0 0270 22 2 202 22 2 [20278020202 202 5 
KERN IN “ Graphik Nullpunkt festlegen 

110 ° »®= Das ist die Graphik, die bewe 200 FOR a=0 TO 1900 STERF PI/S0 

gt werden soll ###* 210 »Z=100#C05 (a) 

120 7 RBB EEE 220 MOVE sH,x% = 
SS 2 2 2 2 2 2 2.2 2.2 2 2 2.2 203 “" Verschieben des Graphikcursors 

1350 730 DRAW 200*C05 ta/t%) ,200*5INta/k%) „Ss 
140 MODE 2 B "Zeichnet die Linie 

“ Modus 240 PRINT" " 2 * DAS IST DER TRICK !!!a 
150 BORDER OrINK O,O:PEN 1 : " Leerzeichen dadurch die Bewegung 


' Farben setzen 
160 CLG 

" Anzeige lneschen 
185 LÜCATE 1,24 
” Cursor links 
170 t%=RND#S+1 
" Setze Fseudo 
180 k#Z-RNDHSHl 
" Setze Pseudo 


unten setzen 






Radom Integer Variable 


Radom Integer Variable 


250 NEXT 
2 240 GDTO 180 


"‘Zurueck nach 150 


CHECE Vi:FRUEFSUMMEN? 


H ZEILENNR.: SUMMEN 
100- 110:121538 
120- 130: 5416 
” 149- 150: BS501 
160- 165: 47458 


Alle Diskeitenanwender finden heute ein kurzes Anwendungspro- | 
gramm unter der Rubrik „Werkstatt“, das hervorragende Eigenschaften | 


in Punkto Verwaltung einer Schneider-Diskettenstation aufweist. 





8764 
F7rat 
57813 
69305 
54411 


170- 
190- 
210- 
230- 
250- 


i80: 
2002 
2208 
240: 
2608 


GESAMTCHECKSUMME: 


41416 









Das Programm DISCHELP ist für 
eine komfortable Verwaltung ei- 
ner Diskettenstation gedacht. 


Es läßtsich z.B. als “$.BAS“ aufje- 
de Diskette abspeichern. 


Der Benutzer istsomitinderLage, 
ohne CP/M einladen zu müssen, 
seine Disketten zu formatieren. 





t. Löschen eines Programmes auf der Diskette 
Wird eine „1“ gedrückt, erscheint im 
oberen Bildschirmteil „Name :“. Geben 
Sie nun bitte den vollständigen Namen 


für den Schneider CPC 464 und 664 


Weiterhin sorgt eine kleine Ma- 
schinensprach-Routine für den 
Ausdruck des Direktorys. 

Dieses Programm ist als ÄAnre- 
gung für Disketten-Arbeitgedacht 
und kann durch einige Modifika- 
tionen auch zu anderen Zwecken 
benutzt werden (z.B. durch kleine 
Veränderungen im Assemblerli- 


DISC-HELP ist ein BASIC-Programm, das folgende Möglichkeiten 
für eine komfortable Diskettenverwaltung bietet: 


des Programms ein, das gelöscht wer- 
den soll. Nach Betätigen der ENTER- 
Taste wird das Programm auf der Dis- 
kette gelöscht und ein neues Inhalts- 


Gomputbe mib 


sting kann ein HARDCOPY-Pro- 
gramm entstehen). 


Die Steuerzeichen in den Zeilen 
110 und 140 sind die Zeichen, die 
durch gleichzeitiges Drücken der 
CTRL und der X-Taste erreicht 
werden (CHR$(24) Umtausch von 
Vorder- und Hintergrundfarbe). 


verzeichnis ausgegeben. 

2. Umbenennen eines Programms auf der Dis- 
keite 
Nach dem Drücken einer „2“ werden 


3/66 


a 


Sie nach dem Namen gefragt, den das | 4. Änderung der USER-Ebene 


Programm erhalten soll. 


Wurde die Eingabe mit ENTER bestä- 
tigt, werden Sie nach dem Namen des 
Programms gefragt, das Sie umbenen- 
nen wollen. Nach Betätigen der ENT- 
ER-Taste wird der Name des Pro- 
gramms auf deı Diskette geändert und 
ein neues Inhaltsverzeichnis ausgege- 
ben. 


Tape-Disc Umschaltung 

Bei Taste „3“ erscheinen die verschie- 
denen Möglichkeiten der Umschal- 
tung. Durch Drücken der entsprechen- 
den Tasten wird diese Umschaltung 
durchgeführt. 


Die USER-Nummer kann durch die Ta- 
ste „4“ geändert werden. Es wird nach 
der neuen USER-Nummer gefragt, die 
durch die Eingabe der Zahlen 1 bis 15 
beantwortet werden muß. Wurde 
„ENTER“ gedrückt, erscheint das In- 
haltsverzeichnis der neuen USER-Ebe- 
ne. 


, Ausgabe des Direktorys 


Die Taste „5“ bewirkt die Ausgabe des 
Direktorys z.B. nach dem Wechseln 
der Diskette, 


. Umschaltung des Laufwerks 


Wurde eine „6“ eingegeben, erscheint 
im oberen Bildschirmteil: „Laufwerk“. 


werkstatt. 


Durch Eingabe von „A“ oder „B" wird 
auf das entsprechende Diskettenlauf- 
werk umgeschaltet. 


. Formatieren einer Diskette 


Wenn Sie eine „7“ gedrückt haben, 
sollte vorher eine Diskette in das Lauf- 
werk eingelegt sein, da das Programm 
sofort mit dem Formatieren beginnt. 
Die Diskette wird nun, genau wie bei 
dem GP/M Kommando „FORMAT D“, in 
Spuren und Sektoren aufgeteilt. 


Drucken des Direklorys 

Nach Eingabe einer „8° wird der im un- 
teren Bildschirmfenster sichtbare Teil 
des Direktorys auf den Drucker ausge- 
geben, und die Schrift auf dem Monitor 
wird gelöscht. 
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‚10 
nge" 
20 FOR 1-&9000 TO &FO87:READ R:PÜKE I,R: 
NEXT 
30 DATA 62,2,203,180,187,205,156, 187,33, 
1,1,205,117,187,1,0,5,205, 96,187, 254,15 
. 40 DATA 32,2,62,20,87,205,43,189, 122,210 
‚27,1944,197,62,32,205,93,187,193, 11,121 
SO DATA 254,0,32,2268,120, 254,0, 32,221,20 
5,156,187,62,0,205,180,187,201,0,0,0,62 
60 DATA 0,14,193,30,0,87,245,33,100,144, 
ı 223,97,194,241,60,254,40,200,6,9,33,100 


"Dischelp 28.07.85 by J.-Holger La 


70 DATA 144,17,4,0,119,25,16,252,24,225, . 


. 82,198,7,0,0,193,2,0,0,195,2,0,0,197,2 
. 80 DATA 0,0,199,2,0,0,201,2,0,0,194,2,0, 
0,176,2,0,0,198,2,0,0,200,2 

70 MODE Z:WINDOW #0,1,80,8,25:WINDOW #2, 
'1,80,1,7 
100 FAPER 1:PEN O:CLS:CAT:!PEN 15PAPER 0: 
WINDOW SWAP 0,2 

i= Loeschen " 

:LOCATE 22,2:PRINT" 2 = Umbenennen * 
120 LOCATE 32,2:PRINT" 3 = Tape / Disc 
"ZLOCATE 52,2:PRINT" 4 = USER Nummer " 
130 LOCATE 2,4:FRINT" 5 = Directory " 
:LOCATE 22,4: PRINT" & = Laufwerk: " 
140 LOCATE 42,4:PRINT" 7 = Farmatieren 


i50 ON BREAK GOSUB 420 


160 iS=INKEYS:IF i$ <"i" OR i$>"B" THEN 
160 

170 i=ASC (IS) -&30:0N i GOTO 180,200,230, 
330, 340,350, 390,400 


180 LOCATE 2,6: INPUT "Name 2", n$:WINDOW 
SWAP 0,2:5ERA, Sns& 


170 WINDOW SWAP 0,2: CLS:WINDOW SWAP 0,2: 


GOTG 100 
200 LOCATE 2,68:INPUT "Neuer Name :",nn$! 
LOCATE 38,54: INPUT "Alter Name :",an$ 


: 310 IF 


Sompube miß 


210 WINDOW SWAP 0,2:L0CATE 2,1 
220 GREN, $nn$, San$:G0OTO 190 


230 LOCATE 2,6:PRINT"t = Tape d = Disc 


i=- Tape.in" 
230 LGCATE 38,6:PRINT"o = Tape. out e = 
Disc.in a = Disc.out” 
250 i$=INKEYS:IF i$="* THEN 250 
250 IF iS="t" OR i$="T* THEN STAPE:CLS:G 
0TO 110 
270 IF i$="d" OR 
OTO 110 
280 IF i$="i" OR 
5:60T0 110 
290 IF i$="o* OR 
LS:60T0 110 
300 IF i$="e" OR 
S:650T0 110 
is="a" OR 
LS:G0TG 110 
320 GGTG 250 
330 LOCATE 2,6:INPUT "Neue USER Nummer : 
"ın:8ölSER,n:!CL8S 
340 WINDOW SWAP 0,2:G0T0O 100 
350 LOCATE 2,6: INPUT "Laufwerk 
360 IF i$="a" GR ige="g" 
0,2:08A:650T0 190 
376 IF i$="b" OR 
0,2:5B:G0T0 1P0 
380 60T0 350 
370 CALL KPÖOdO:RUN 
400 LOCATE 2,6: INPUT "Disc-Name :"ın$:PR 
INT#8,,,n$ 
410 CALL &FOOO: WINDOW SWAP 0,2:GOT0 190 
420 MODE Z:END . j 


ı$="D" THEN BDISCICLS:G 


i$="1" THEN STAPE.IN:CL 


i$="G" THEN STAPE.OUTSC 


i$="E" THEN SDISC.IN:CL 


i$="A" THEN 6DISC.OUT:C 


:".i$ 
THEN WINDOW SWAP | 


i$="B" THEN WINDOW SWAR 


: 453947 310- 320: z028 


CHECK VLIPRUEFSUHMEN: t30- .i40 
330- 160: 532221 330- 340: 18173 

ZEILENNR.: SUMMEN 170- 180: 86479 350- 360: 85508 

10-  20:111309 470- "200: 60024 379- 380: 84279 

30- a0: 4763 210-- 220: 26472 390- 400: 45363 

s0- 60: 1238 230- 240: 76460 410- 420: 12751 

FO- 2° FA 230- 260: 799342 | ---------------------uuun 

9u- Ao0: 270- 280:117374 GESAMTCHECKSUMME: 2713 

119- 120: SBs6r 290- 300: aaraa i ® 


Programme 


Hier sind Spieler mit äußerst kurzen Reaktionszeiten gefragt! Nur mit Hilfe des rasenden Fahr- | 
stuhls können Sie Ihre Fabrik vor dem sicheren Ruin bewahren. 





Noch zu Zeiten des deutschen Wirt- 


schaftswunders haben Siesich eine große - 


Porzellanfabrik aufgebaut. Nachdem die 
Wirtschaftsrezession der sechziger Jahre 
mit Unternehmensgeist und Engagement 
überstanden wurde, entschlossen Sie sich 
zur Modernisierung Ihrer Produktionsstät- 
ten. Modernisierung bedeutet in diesem 
Fall, Roboter und Computer übernehmen 
den Produktionsablauf. Als die Moderni- 
sierung scheinbar die ersten Früchte 
trägt, passiert das Unfaßbare. Nach dem 


Motto „Die.Module spielen verrückt", dre- 
hen die Gomputer und die von Ihnen ge- 
steuerten Roboter durch. Erst wird die Fa- 


brik halb zerstört und dann beginnen die - 


Roboter, die wertvollen Meißener Porzel- 
lankisten in Richtung eines gähnenden 
Abgrundes zu schieben. 

Es gibt nur einen Weg, das kostbare Por- 
zellan, welches gleichbedeutend mit dem 
Betriebskapital ist, zu retten und damit die 
Fabrik vor dem sicheren Ruin zu bewah- 
ren. Mit dem Fabrikfahrsturl müssen Sie 


auf und ab rasen und immer an der Stelle 
ein Fließband aufbauen, wo eine Kiste in 
den Abgrund zu fallen droht. Es können 
immer nur gleichzeitig zwei Fließbänder | 
aufgebaut werden. Doch aufgepaßt! - Die 
„Rettungsanker“ verschwinden nach kur- 
zer Zeit wieder und sobald 10 Kisten im 
Abgrund verschwunden sind, ist Ihr einst 
so florierendes Unternehmen am Ende. 
Gesteuert wird per Joystick. Die Fließbänder 
werden durch Beiätigen der Feuertaste aufge- 
baut. 
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iIREN FIIR 
2 REM *X Die verrueckte Fabrik * 
3 REM * Written by Ei 
4 REM # Ottfried Schmidt * 
5 REM EEIIITIIIIIIII IT 
& REM 

10 hsc=0 

zZ0 GOSUB 970 

30 sc=9 

40 DIM 2173,60” 

50 kiste=0 

&0 DIM ei2):a$=CHRE{(200):FOR i=i1 TO idıa 


$=a$+CHR$ (ZOL) INEXT ijas=eas+tCcHR$ (202) 
70 DIM #12) 

80 MODE i 

90 INK 1,24:1INK 2,0: INK 3,4:INK 0,6 

100 BORDER O:PAPER 2:PEN 3 

110 CLS 

120 FOR i=21 TO 24:FOR I=1 TO 40 

130 LOCATE 1,i:PRINT CHR#1(203)} 

140 NEXT I:NEXT i 

.150 FOR i=2 TO 21 STEP 3 

160 FOR 1=1 TO 19 

170 PEN i 

180 LOCATE 1,i:PRINT CHR$(204) 

190 NEXT 1:L0CATE 1,i:PEN 3:PRINT CHR$12 
OSI:PEN A:NEXT i 

200 FOR i=t1 TO 20 

210 LOCATE 40,i:!PEN 3:PRINT CHR$t203) :NE 
xT ii Ä 
220 PEN i 

230 c=10:L0CATE 40,c:PRINT CHRS (208) :L0C 
ATE 40,C+1:3PRINT CHR$(209) 

240 FOR i=1 TO ?:ati)=1:NEXT i 

250 bii)=1:b12)=4:b(3)=7:1b14)=10:b 15) =13 
15 (6)=16:517)=19 

280 PEN 0 


Compube miß 


270 FOR i=! TO ? 

280 LOCATE atli),bBii)sPRINT CHRSIZOSIICHR 
51208) 3 CHRS (207) 

250 NEXT i 

300 IF atix)=18 THEN IF etl}=bix} OR et2) 
=bix) THEN GOSUB 730 

310 PEN 1:5LOCATE 1,24 | 
320 PRINT "kisten=";kisteiLDCATE 15,24:P 
RINT *"HIGH=";hsc: LOCATE 29,24: PRINT "SCO 
RE="isc . 

330 rei=c 
340 IF JIOYtö) AND 2 THEN IF ci19 THEN c= 
c+3 j 
350 IF JOYtG) AND i THEN IF e>2 THEN e=c 
-3 

350 LOCATE 40,c1:PEN 3:PRINT CHRSI203):L 
OCATE 930,ci+1:PRINT CHR&S1203) 

370 FEN 1:!L0CATE 40,c:!PRINT CHRS(208):L0 
CATE 940,c+1: PRINT CHRS$S1209)} 

350 x=INT (RNDILIFFI FI 

3r0 LOTATE atx),bix):PEN 9:PRINT " 
#205) 5 CHR$i1208) ICHRS$S (207) 

400 alx)=alz) + LıIF atx)=1?7 THEN IF etll)f 
?bix) AND eti2)<>btx) THEN LOCATE alx)t2, 
b(x):PRINT " ":G0SUB 470 

410 IF aix)=19 THEN IF eil)=btix) 
=b{x} THEN GOSUB 730 

420 IF JOY(iO) AND 164 THEN GOSUB 830 

450 IF fi1)>0 THEN Fti}=Ftl)-L:iF Fil)i= 
OÖ THEN LGCATE Z1,eli)+ti: PRINT * 

"eill)=O | 
+12)>0 THEN FizZ)=Fi2)-1:IF Fi2)ie 
LOCATE Z2i,ei2)+1:PRINT " 

"Tei?)=t 
450 SOUND 1,0,4,5,0,0,% 

450 GGTO 330 


"CHR | 


OR ei2) 


440 IF 
0 THEN 


3/86 





| 


al=salx}+3:1bi=bix} 


470 
450 az=al:b2=bl 
479 bi=bl+1: IF bi=21 OR Bisetl) OR bi=et 


2). THEN 60T0 530 
500 LGCATE a2,b2:PRINT * 
ai,b1l:PRINT CHRS{207) 
310 SOUND 1,80+1b1%3),5,14,0,0,1 

s20 GOTO 480 

530 LOCATE a1,bi-1:PRINT CHR# (238) 

540 SOUND 1,0,12,15,1,1,8 

550 LOCATE zi,bi1-1:PRINT " “ 

550 PEN O0 

570 LOCATE alx),bIx):PRINT * ” 

S80 älx)=el 

590 LOCATE alx),bix):PRINT CHRS (205) 5CHR 
${206} ;CHRS (207) 

600 kiste = kiste+l!LOCATE 8,24:PRINT ki 


- b3) 


re “iste>10 THEN GOTO 840 


Druckertisch 


":FEN 1:LOCATE 


4121030 THEN RETURN 
“ti}=c THEN RETURN 


Staubschutzhauben ||: 


werd Frir=30T Staubschutzhauben | 
PEN Oseti)=c 

670 RETURN 

700 IF eiZ)<>O THEN RETURN 
710 ft2)=30:PEN 1:L0CATE 21,c+ti:PRINT as 
ıFEN O:elZ)=c 

720 RETURN 

?30 FÜR i=atx) TO 38 

740 LOCATE i,bix}:PRINT * "3CHRS{207) 
750 SOUND 1,70-1,3, 14: NEXT i 

780 FGR k=1 TO 50:SOUND 1,300-12#1Iktk)), 
1,5:NEXT k 

770 LOCATE 39,b1x):PRINT " * 

789 atlx)=1 

790 sc=sc+i0:!L0OCATE 35,24: PRINT sc 

800 LOCATE alx},bix}:PRINT CHRSIROFI SCHR 
$1206) 3; CHRS (207) 

8ı0 IF eti)=bix) THEN ell}=0:F#11)=0: LOCA 
TE 21,bix)+ti:FRINT ” 

820 IF elZ)=bIx) THEN et2)=0:f12)=0; LOCA 
TE 21,bix)+1:PRINT * 

830 RETURN 

840 MODE O0: INK 3,0:PAPER 3:{7L5 

850 LOCATE &,i2:PEN 1:5INK 1,2,253 

860 PRINT "GAME DVER" 

870 LOCATE 4,20:PEN 2:INK 2,16 

830 PRINT "SCORE="j SC 

890 IF sc>hse THEN hsc=scı PRINT EHRE); 
Neuer HIGH-SCORE" 

900 FOR i=10 TG 100 STEP 4:50UND 1,1,5:5 
OUND 1,i+10,55SQOUND 1,1,5:NEXT i 
910 CLS:PRINT "NEUES SPIEL?" 

920 FRINT "FEUER=JA sonst NEIN" 

230 IF J0OY1O)=0 THEN GOTO 9730 

940 IF JOY(O} AND 16 THEN kiste=0: 
oT0 80 

750 MCDE 1:INK 1,1:PAFPER 1:BORDER ı 








PRINT as 


nn 


sc=0:6 


programme 


760 INK 0,27:PEN O:CALL &BBOS:CLS:END 

770 SYMBOL AFTER 199 

780 SYMBOL 200,43,120,204,132,132,204,12 

0,53 

90 SYMBOL 201,255,32,80,32,4,10,4,255 
1000 SYMBOL 202,252,30,31,33,33,51,30,25 

2 B 

1010 SYMBOL 
259 

1020 SYMBOL 
235 

1030 SYMBOL 
53,64 

1030 SYMBOL 

8,129 

1050 SYMBOL 
-Y3 

1080 SYMBOL 
5,255 
1070 SYMBOL 
‚28 

1080 MODE 1:PAPER O:INK O, 0: BORDER O:PEN 
1:INK 1,5:INK 2,24 

1090 CLS:PRINT "D IE VERR U ECKT 
E FABR TI K*":PRINT 

1100 PEN 2:PRINT "In der Hypermadernen F 

orzellan-Fabrik sind die Computer ausg 

eflippt" 

1110 PRINT "Erst haben sie die halbe Fab 

rik zersto- erhrt und jetzt schieben 7 *®* 
11206 FRINT "Robatbulldazer Kisten mit we 

rtvollem 'Maisner Porzeilan auf den Ab 

grund zu" 

1130 PRINT *Nur Du kannst das Porzellan 

retten mit Deinem Fahrstuhl kannst 

du auf und ab Fahren und 2 Fliesbaender 
aufbauen® 

1140 PRINT"’Die Fliesbaender bleiben nur 

kurtze Zeitstahen*" j 

145060 PRINT "Sind mehr als 10 Kisten runt 

ergefallen so ist das Spiel beendet (da 

nn ist Dein Chef pleite)" 

1160 PRINT "Gesteuert wird mit dem Joyst 

ick" 

4170 PRINT!PRINT YIE L SPASS" 

1180 PRINT "Joystick bewegen" 

1170 IF JOY(O)=0 THEN GOTO 1190 

1200 RETURN 


202,255,24,24,26,66,129,255, 
204,255,129,66,60,60,66, 129, 
205, 128, 159, 124,61, 255,255,2 
206,0,128,129, 130,230, 250,19 
207,0,126,102,74,82,102,126, 
208,60,60,102,102,255, 165,16 


209,219, 255,219,127,63,63,31 


GHECK VI:PRUEFSUMMEN? 


810- 270: BB30 


ZEILENNR.: SUMMEN 370- 380: 24575 
1- 2: 47107 370- 400: 87976 630- 840: 5188 
I- 4: 40730 410- 420: 43195 850- Baal: 12612 
Y- 4 1614 430- 440:123447 870- BBO: 15427 

10- 20: 5223 450- 460: 85389 890- 9600:100330 
30- 30: 10873 470- 490: 649897 »10- 920: 30932 
S0- 60: S2dda 470- 300: 15345 330- 940; &8320 
70- BO: 2551 S10- 820: 19123 950- 9640: 18974 
s0- 100: 14547 330- 340: 30129 ‚970- 980: 29913 
410- 420: 25083 =50- 540: 14482 770- 1000: 41406 
190- iN0: 22975 s70- Sa0; 20871 1010- 1020: 37214 
150- 1407 14381 ®#70- 500: 84373 1030- 1090: 65142 
170- 180: 17025 &10- 620: 17378 1050- 1060: 347977 
190- 200: 45727 830- 540: 89577 1070- 1090; 46724 
210- 220: 30354 * 859- 440: FZI18 I070- 1100: 59933 
230- 240: 354527 #70- 5880: 75857 t110- 1120: 305?1 
250- 260: 28345 #90- 7005 11196 i130- 1140: 72640 
270- 280: 27914 Z10- 7205 1511& 1150- 1150: 11351& 
290- 300: 31871 730- 7302 48949 1179=- 1180: 310869 
Si6- 320: 25094 780- 760: 27577 1190- 1200: 11627 


7747 


770- 790: 18827 
3337 


Fr9= 800: BESANTCHECKSUMHE: 





u 


Compute mit 








zei Su 
5 ee Penn 


: Das TENNIS. Fieber hat uns alle ergriffen. Nicht‘ ZUu- 
letzt durch die großartigen Erfolge von Boris Becker ist 
der ‚Weiße Sport* zu einem Volkssport geworden 
unserem Game treten zwei Tennis-Cracks gegeneinan- \ 
der an: sie'schenken sich nichts; um jeden Ball wird ge- 

. kämpft. Das Spiel basiert auf den Grundregeln des ınt- 
ernationalen Tennis’. Hart umkämpfte Tie-Breaks sind 
ebenso an der Tagesordnung wie ein zermürbajjktfe 


Fünfsatz-Spiel. Bi 10 Kisten im 
Sie haben hierbei die Möglichkg; unden sind, ist Ihr einst 


und Ballwinkel zu varile, 
„Knopfdruck“. Einvselil fides Unternehmen am Ende. 
steuert wird per Joystick. Die Fließbänder 
werden durch betätigen der Feuertaste aufge- 


ig 

























Der alte Magier will einen Zäubertrank brauen.: [BEFAN 
benötigt er allerlei Zutaten. 

Also ist.er unterwegs, um Spinnen; Kraken, Pilze und 
EHTERSFELTINTIEN TEA RFAIRR IN Doch Hexen, Fle- 
dermäuse und anderes Ungetierversüchenihn daran zu 
kindern. Der Magier ist aber nicht hilflos! 

Die Monster kann er.mit Zaubersternen abwehren. Hat 
ereine Zutat gefunden, so muß ersie in den Topf Wwer- 

‘fen. Ein Spaß für die ganze Familie. 


